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THIS PROGRAM REQUIRES 16K WORDS OF MEMORY 
PRELIMINARY PROGRAMS 

THIS PROGRAM ASSUMES My! MAINDEC-11-DZRJG-(LATEST 
REV) BEEN RUN WITHOUT E 
PND IT ASSUMES THAT MAINDEC-11-DZRJH-(LATEST 
REY) HAS BEEN RUN WITHOUT ERRORS. 

LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
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STARTING PROCEDURE 


SWITCH Her SE 7. ae THIS PROGRAM IS TO BE wy USING AN 
IT CAN BE SET AT THE FRONT PANE Tex IN THE 
Sue eT REGISTER IF _THE OPERATOR SO DE E=yRes 3 3 
Ppeeition FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 210---FOR UNIT SELECTION 
START AT ADDRESS e20---FOR NO MANUAL INTERVENTION 


203 START 
MLL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
ING ADDRESS RPO4/S/ 


L VE 
THE LOWEST UNIT NUMBER RHAS REGISTER 
THE NEXT HIGHER UNIT NUMBER 


. WITH THIS 
LL ASK FOR THE UNIT 
BE TESTED 

POR EACH PRES OF THE PROGRAM. 


220 STAR 

ALL SUTTCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS STARTING 
ADDRESS THE PROGRAM WILL NOT RUN THOSE T HAT NEED 

MANUAL INTERVENTION. THIS IS RECOMMENDED ONLY FOR 

Peaueel ve WERE THE ERROR IS NOT IN A TEST THAT REQUIRES MANUAL 


PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

2. SET STARTING ADDRESS ON THE SWITCH REGISTER 
3. PRESS “LOAD ADDRESS”. 
4 


SET “OPERATIONAL SWITCH SETTINGS” (SEE SECTION S.1) 
WORST CASE IS ALL SWITCHES DOWN. 


PRESS “START”. 


6. oy THE FIRST PASS aes TEST WILL BE EXECUTED ONCE 
THE DRIVES PRESENT OR DRIVE SELECTED BEFORE “END 
PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR | 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN “ACT-11" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
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ar T TIME ACH DRIVES PRE VE SEG 
ETE ES TS ALEPH OS SP 8 on 
BND” SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION. 
§.0 OPERATING PROCEDURE 
5.1 OPERATIONAL SWITCH SETTINGS 
IF THE PROGRAM IS BEIDNG RUN ON A SWITCHLES PROCESSOR (I. E. 

AN 11734) IT WILL DETERMINE THAT A HARWARE SWITCH REGISTER IS 

PRE ILL USE “SOFTWARE” SWITCH REGISTER. THE 
IT ARE CONTROLLED THROUGH A KEYBOARD 
YPING A *COBNTROL G’. THE PROGRAM 
* AT ANY TIME EXCEPT WHEN IT IS AR 

RRUPT. THE 
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£ ’ BE ENTERED. ‘. T 
SUIRED. "RUBOUT’ AND *CON ey ONS MAY BE USED TO 


I 
ON PROCESSORS WITH HARDWARE SWITCH REGISTER, THE “SOFTWARE” 
SWITCH ee ree MAY feo Be USED. en THE PROGRAM FINDS ALL 
16 te * UP” ITION IT IS STARTED, ALL 
TCH REGISTER FERENCES WILL BE TO THE “SOFTWARE” REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 
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AFTER THIS HALT PRESSING 
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SEQ O00E 


- RH70 CONTROLLER SELECT 
H MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
S yy BE TESTED ARE CONNECTED TO AN RH70 

T MUST NOT BE SET wen DISK DRIVES TO BE TESTED 
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11 = INHIBIT ITERATIONS 
HIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 
“4 EACH TEST FOUR TIMES BUT WILL DO EACH TEST 
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ON ERROR 
TCH IS SET, IF THE PROGRAM FINDS AN ERROR 
“ALARM” WILL BE SOUNDED. THIS SWITCH IS USEFUL 
1 IS SET rer INFORMATION IS NEEDED WHEN ANY ERROR 
T PR LOOPING ON A TEST WITH 
HELP SCOPING. THEN IF THIS SuITCH IS 
ARM SOUNDS IT MEANS THAT THE ERROR 
LL OR FLARM STOPS IT MEANS THAT 
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- ERROR 
WHEN THIS SWITCH IS SET. IF THE PROGRAM FINDS AN ERROR 
THEN GE Y_THE PROGRAM WILL LOOP BRCK TO THE LAST 
EXECUTED "SCOPE" STATEMENT. IF ON THE SECOND TIME 


CONTINUE M. EACH T HE E 

TS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

TS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


SWITCH 8 - LOOP ON TEST IN SWR <7:0) 

THIS IS A SPECIAL SWITCH. WHEN SET BITIGES 0 La: 7 
HAVE ONE MEANING AND WHEN RESET eg OT 7_HAV 
en FEN, THIS MEANS THA 
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SEQ 0007 











I 
NOT_SET THIS SWIT 
AS THE NAME INDICATES. THAT 15 ON NFINDING AN ERROR INSTEAD 
OF ONLY GIVING THE E MESSAGE AND RELEVANT REGISTERS 
AS WILL BE DONE IF 


GIVE ALL THE REGISTER CONTENTS: (EXCEPT “BATA BUF FER RHDB). 
SUB-ROUTINE ABSTRACTS 

SEE SECTION 9 “SUBROUTINES”. 

ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4/S/6 
REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR OCCURRED INA 
TINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE 
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
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THYs TREORNRTION MILL. BE COMUNECATED TO THE OPERATIOR. IN 
ADOFTION, THE ry “ee WILL R Nin i: THE. PRO RAM WILL HALT 


IT 15 SUGGESTED THAT FINIS HAPPENS, THE OPER ATOR LOAD = 
SOC vE THE. Fig) fe % THE FILURE Re CONTINUES TO occuR 


THERE ARE TWO OPTIONS OPEN TO THE OPE 


1. LOOK IN THE TEST LISTING FOR THE “HALT” 
INS TRUCTION BND, REPLACE IT, PLUS THE TWO WORDS 

“TYPE ) ABOVE WITH "NOP’S. WITH TTY ERROR 
PRI NrpUTa” NHTBI TED A SCOPE LOOP CAN BE INITIATED 
FRA THE TEST IN QUESTION. 


GO BACK AND RERUN DZRPS IT IS QUITE POSSIBLE 
FaaT A HARD FAILURE HAS BCCURRED IN ONE OF THE 
HARDWARE REGISTERS. 


IT IS ALSO POSSIBLE TO CONTINUE FROM THE *HALT’ POINT, SUT 
THIS IS NOT RECOMMENDED AS ALL FOLLOWISNG TESTS WILL EXHIBIT 
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST HAVE = 
DRIVE PORT SWITCH LOCKED EITHER ON PORT A a PORT B BUT 
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE. 


SWITCH 12 MUST BE_SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE OF THE REQUIREMENT FOR IT TO ap at NUS! AN 


ON AN RH70. THIS IS 

CAUSE THE ROUTINE WHICH GETS “SOFTWARE” SWITCH SETTINGS IS 
NOT OPERABLE WHEN IN CHAIN MODE. 
MISCELLANEOUS 
EXECUTION TIME 
THE FIRST PASS OF alte PROGRAM WILL TAK APPROXIMATELY 1 

MINUTES PROVIDED AN OPERATOR IS PRESENT TO CA TT 
TYPED INSTRUCTIONS IMMEDIATELY. SUBSEQUENT PASSES WILL TAKE 
30 SECONDS WHETHER AN OPERATOR IS THERE OR NOT. 
STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 ~ 
OPERATOR SELECTABLE SCOPE LOOPS 
HERE IS A DETAILED EXPLANATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING T! HE USAGE OF THIS TECHNIQUE HIT Yo 
ANY TIME WHILE THE NG. HITTING AN ERRO 
IF THE LOOP ON ERROR SWITCH IS oe THE PROGR Coes. Bache - 
USUALLY BACK TO THE BEGINNING OF THE TES 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 












THE RESTRICTIONS TO THE pom WHERE THE PROGRAM CAN GO ARE: - SE@ 0009 


?! fat TaN ue T UNDER CONSIDERATION 
Qn ERROR SKITCH MUST BE SET 


3. THE ERR ERROR MUST sOCCUR WITHIN THE. TEST UNDER CONSIDERATION 

IF THE ERROR pore NOT OCCUR WITHIN THE Teer UNDER ee ah 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH IS at a iy THIS OPERATOR SELECTABLE SCOPE LOOP” 13 USED 
THEN THE PROGRAM W Lh bor BACK TO THE SELECTED POINT WHEN IT 

COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


8.4 PROGRAM REVISION HISTORY 













9.0 PROGRAM DESCRIPTION 
9.2 LOSIC DIVISION IN HARDWARE MODULES 
REGISTER BOARD (RG) - ERROR REGISTER 1 STATUS REGISTERS 
MUX FOR REGISTERS GO 


HANDLING REGISTER 
DECODE COMMAND DECODE EXECUTION OF 
MECH. COMMANDS 








SYNC. DATA BCARD (SN) - DATA CONTROL PARALLEL TO SERIAL 
SYNC. BYTE DETECT. 


SEEK AND SEARCH (SS) - SEEK LOGIC SEARCH LOGIC HEADER 
HANDLING. 







ERROR CORRECTION (EC) - ECC LOGIC nn REGISTER 2 3 3 
MUX FOR K AHEAD 


REG. or CTOR COUNTER DATA FORMATION 
RING COUNTER. 


DUAL PORT (DP) - DUAL PORT ARBITRATION ATTENTION LOGIC 
aeReeL NO REGISTER MASS BUS REGISTER 








3.2 DISK SURFACE USAGE 
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C1, TO, SO 
TT30-W.R, TT31-W,R, TTS3-W,R, TTSY-W.R 


C1, T18, S21 
TT31-W 


ce, TO, So 
$F. WR 


C2, T18, S2l 
TT31-W 


63, TC, SO 
TT31-W,R 


3, 718, S2l 
ee 

C4, TO, SO 
TT31-W.R 


C4, T18, S2l 
TT31-W 


cS, TG, So 
TT31-W:R 

cS, 17, S4 
TT33-W;R, TT34-W,R 


cS, T18, S2l 
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TT31-W.R 


Cb, T18, S2i 
TT31-W 

C7, TO, SO 
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C7, 718, S18 
TT31-W 


CB, TO, SO 
TT31-W,R 


CB, T18, S2i 
TT31-i 


c9, TO, SO 
TT31-W 


C9, T18, $21 
TT31-,  TT32-R 


~ Me ee, 
TT3i-w,R 
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C410, T18, Sel 
TT36-W,R, TTSO-W,R 


THE FOLLOWING eS DESCRIBES EACH TEST AND feria ves 
IN DETAIL AND CAN BE USED AS AN INDEX TO THE L 

THE LEFT MOST COL LUNN IS THE LINE NUMBER WITHIN THe LISTING 
WHERE THAT ITEM WILL BE FOUND. 
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ateneeeeeseeneeiss 
OPERATIONAL SWITCH SETTINGS 
BASIC DEFINITIONS 
TRAP CATCHER 
ACTi1 HOOKS 
STARTING ADDRESSES 
MEMORY MANAGEMENT DEFINITIONS 
COMMON TAGS 
ERROR POINTER TABLE 
REGISTER ADDRESSES 


#*#DIAGNOSTIC CODES# 

SETUP TESTS 

INITIALIZE THE COMMON TAGS 

GET VALUE FOR SOFTWARE SWITCH REGISTER 
##DRIVE COMMAND TESTS2# 

READ/WRITE TESTS USING MEDIA 


SEEK TESTS 
WRITE CHECK DATA & WRITE PROTECT TESTS 
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~ TABLE OF CONTENTS 
RERERELARERERERR ERE 


10287 #eSUSROUTINES## 


10271 END OF PASS ROUTINE 
10312 JAM CURRENT CYLINDER ROUTINE 

11114 SCOPE HANDLER ROUTINE 

11177 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
11244 TYPE ROUTINE 

11314 TTY INPUT ROUTINE 

11542 READ AN OCTAL NUMBER FROM THE TTY 
11595 ERROR HANDLER ROUTINE 

L148 ERROR MESSAGE TYPEOUT ROUTINE 
11877 BINARY TC OCTAL (ASCII) AND TYPE 
11954 TRAP DECODER 

| 11970 TRAP TABLE 

| 11992 POWER DOWN AND UP ROUTINES 
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3 COPYRIGHT (C) 1976 
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PROGRAM BY PETE BLACKSTONE 
THIS PROGRAM WAS ASSEMBLED USING THE wh MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-D2QAC-CO),MAR 21, 
DRIVE MUST BE LOCKED ON PORT A OR PORT B 
28 INTERNAL PROGRAM MACROS BEGIN HERE 
ERERRERE LER EEE EEE EL EAARERE REE EEE 


* 

*#NOTE: ALL MACRC CALLS BEGINNING WITH ".$”" ARE SUPPLIED FROM AN 
EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 


RELRALRAAELAAEREAALEE LEE LLAEREL EAA LALA RAL HARA LARERELAREARARERALRE 


OPERATIONAL SWITCH SETTINGS 
ERERLERELELERERREELERERELEEL LAL ER AGREE ERE REESE SES EEESESSESERE 


41 
SWITCH USE 
15 HALT ON ERRO 
14 LOOP ON TEST 
13 INHIBIT ERROR TYPEOU 
le RH70 eee ELECT 
1} INHIBIT ITERATIONS 
10 BELL ON E 
9 POOP ON ERROR 
8 LOOP ON TEST IN SWR<7:0> 
$3 7 STOP FURTHER COMPARES IF SWOS IS LOW 
§ TYPE ALL REG. WITH ERROR IF SWS LOW 
§ MULT ADOR PLUG TEST IF SWOS IS LOW 


MRINDEC-11-DIRJI-A, RPOY’S“6 FUNCT. CONT. TST-PT 1 
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TERERERRRATARAARERRHAAAARAAARERAA KLAR AAA AA KARA LAA REA SERA LEAS AE RESE 


BASIC DEFINITIONS 
JAA HHHHHEHHHHHHEHEEHHHHHEHHEH HEHEHE HHHEEEHE HEHEHE HEHEHE 


$9 INITIAL ADDRESS OF THE STACK POINTER *#% 1000 ### 
&4 MISCELLANEOUS DEFINITIONS 
rs GENERAL PURPOSE REGISTER DEFINITIONS 
88 PRIORITY LEVEL DEFINITIONS 
38 “SWITCH REGISTER” SWITCH DEFINITIONS 
ig6 DATA BIT DEFINITIONS (BITOO TO BITS) 
154 BASIC “CPU” TRAP VECTOR ADDRESSES 
ERRKREERRRRRER EE EERE ELLA EERE REER ERR EEE EEE EER EER REESE CPE EEEERER 
TRAP CATCHER 
RAR RAR RRR ERE EERE ER EERE EERE EAE ERLE A ERE ER EERE RRR ER ERE 
171 ALL UNUSED LOCATIONS FROM t. - 776 CONTAIN A”. +2,HALT™ 
SEQUENCE TO CATCH ILLEGAL TRAFS AND IN 
LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
+> or grr => aaa nae cameramen eee 
cTll 
EHH HE HHH HEHEHE EHH HEHEHE GHG UES HEHHG GE HEEEE 
REARRERRRREE ELLER EARLE ERE E RE EEE EEE EERE EERE EEE EER EERERRERES 
STARTING ADDRESSES 
RERESRRERRE ELLE ELLE LLSREREE EERE EEL ELLLEEREREE SEALER RR ERERERER EES 


200 STARTING ADDRESS 200 FOR NORMAL STARTS 


THIS WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A TIME 


STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED ORIVE 


ee Toren 220 WILL JUMP OVER THE TESTS REQUIRING AN OF 


I THE ’ 


os 
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2038 


303 


eT iiiiticiititiitiitiittitittetiitttiiiittiititiiii 
MEMORY MANAGEMENT DEFINITIONS 
RRR RRR RRR R RRR R EER RE EEE EERE EERE RR REE 


210 KT11 VECTOR ADDRESS 

214 KT11 STATUS REGISTER ADDRESSES 

221 KERNEL “I" PAGE DESCRIPTOR REGISTERS 
232 KERNEL “I” PAGE ADDRESS REGISTERS 


RKFRAAAL LALA RA RARE LAL HALL ALLEL EAAREAAAA LALA ALAA LA ALA ARAL ALA RLE LEE 


COMMON TAGS 
RRERERRRRERER EERE EEE EEA KALE RER RRR E EERE E EERE EE EAEERAEE EERE REESE 


246 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 


EHEALAA AAA AAAARE ESLER EELS AREA LALLA EE RAL LAE ARLE REA LAK EARLE REESE 


ERROR POINTER TABLE 
RRR ARSE HE SESE HE SEE SEE AEE EER EE ERA RAR ESE SEE HEHEHE HEE SEE EE EE EE EE EERE 


305 THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
THE INFORMATION iS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
LOCATION prs. THIS NUMBER INDICATES WHICH ITEM IN ne TABLE IS PERTINENT. 
NOTE]: IF SITEMB 1s QO THE ONLY PERTINENT BATA IS (SERRPC). 
NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


311 EM ;;POINTS TO THE ERROR MESSAGE 
DH :;POINTS TO THE DATA HEADER 
DT ;;POINTS TO THE DAT 
DF ;;POINTS TO THE DATA FORMAT 

323 ITEM 

335 ITEM2 

347 ITEM3 « 

388 ITEM4 

371 ITEMS 

381 ITEME 

331 ITEM? 


399 ITEM1O 


ee eH ee ee ee + 
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co 


| 
| 
{ 


— 
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412 
426 
440 
456 
46E 
478 
492 
S06 
515 
S26 
§33 
S43 
sSe 
S63 
S75 
58 
595 
£07 
615 
S25 
631 
541 
648 
659 
£70 


ee ee re mm ee ee ee, em 


ITEMLI 
ITEML2 
ITEMI3 
ITEMLY 
ITEMIS 
ITEMI6 
ITEM? 
ITEM2C 
ITEM 21 
ITEM 22 
ITEM 23 
ITEM 24 
ITEM 25 
ITEM 26 
ITEM 27 
ITEM 30 
ITEM 31 
ITEM 32 
ITEM 33 
ITEM 34 
ITEM 35 
ITEM 36 
ITEM 37 
ITEM 40 
ITEM 41 
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684 
696 
79 
72l 
734 
743 
756 
767 
783 
796 
803 
§15 
827 
839 
852 
869 





ITEM 42 
ITEM 43 
ITEM 44 
ITEM 4S 
ITEM 46 
ITEM 47 
ITEM SO 
ITEM S1 
ITEM Se 
ITEM 53 
ITEM S4 
ITEM 5S 
ITEM SS 
ITEM 57 
ITEM 60 
ITEM 61 
ITEM 62 
ITEM $3 
ITEM 64 
ITEMES 

ITEMEG 

ITEM57 

ITEN70 

ITEM 71 
ITEM 74 


HO02 
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983 

990 

ic0l 
1003 
1021 
1031 
1049 
idS2 
1064 
1076 
1090 
1098 


1103 


1108 
lie? 


1132 
1137 
1159 
1169 
1187 
1197 
1208 


1215 


ITEM 73 
ITEM 74 
ITEM 75 
ITEM 76 
ITEM 77 
ITEM 100 
ITEM 101 
ITEM 102 
ITEM 103 
ITEM 104 
RH11 REGISTERS 


WORD COUNT REGISTER (RHWC) 
EACH BIT IS CALLED BY BIT NUMBER 


BUS ADDRESS REGISTER (RHBA) 
EACH BIT IS CALLED BY BIT NUMBER 


CONTROL AND STATUS REGISTER 2 (RHCS2) 


DATA BUFFER REGISTER (RHDB) 
EACH BIT IS CALLED BY BIT NUMBER 


RPOY REGISTERS 

CONTROL AND STATUS 1 REGISTER. (#00) 

STATUS REGISTER (RHDS1) (#01) 

ERROR REGISTER #01 (RHERI) (#02) 
MAINTAINABILITY REGISTER (RHMR) (#03) 
ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 


DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
EACH BIT IS CALLED BY BIT NUMBER 


DRIVE TYPE REGISTER (RHDT) (#06) 
EACH BIT IS CALLED BY BIT NUMBER 
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le2e 
1241 
1259 


1273 


1279 


1285 


1291 
1305 


1311 
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LOOK-AHEAD REGISTER (RHLA) (#07) 
ERROR REGISTER #2 (RHER2) (#10) 
OFFSET REGISTER (RHOF) (#11) 


DESIRED CYLINDER ADDRESS (RHCA) (#12) 
EACH BIT IS CALLED BY BIT NUMBER. 


CURRENT CYLINDER ADDRESS (RHCC) (#13) 
EACH BIT IS CALLED BY BIT NUMBER 


SERIAL NUMBER REGISTER (RHSN) (#14) 
EACH IS CALLED BY BIT NUMBER 


ERROR REGISTER #03 (RHER3) (#15) 


ECC POSITION REGISTER (RHEC1) (#16) 
EACH BIT IS CALLED BY BIT NUMBER 


ECC PATTERN REGISTER (RHEC2) (817) 
EACH BIT IS CALLED BY BIT NUMBER 











RARALEAALAL RARE HAL ERE RAL ALLER LEAL AKL RAAAA ALAA RALAERE LALA LEA ELLREE 


REGISTER ADDRESSES 
HERA RARE REEL EAE EERE EE REEL EER ER REE ER EEE 


1327 
1334 
1353 
1359 
1367 


1370 


1375 


1407 
1409 


RPO4/S/6 DISK 1/0 REGISTER LOCATED IN THE RH11 CONTROLLER 

RPO4/S/6 DISK 170 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC ‘<DCL) 
ADDITIONAL I/0 REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 
P-CLOCK (KW11-P) I/0 REGISTERS 


THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SNAPSHOTS 
ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED 


ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
FOR THE TIME JUST AFTER THE “ERROR” ERROR COMMAND 


THIS ASSUMES THAT A REGISTER SNAPSHOT HAS BEEN TAKEN WHICH IS NOT 
ALWAYS THE cA SE - IF QUESTIONABLE CONTENTS APPEAR IN THE REGISTER 
PRINTOUTS, CHECK THE INLINE TEST CODE TO SEE IF THE REGISTER SNAPSHOT 
REFLECTS tHe CURRENT STATE OF THE MACHINE 

FUNCTION EQUATES 


TABLE OF FUNCTIONS FOR RHCS1 THEN “GO” BIT HAS TO BE SET 


30-MAR-76 23:05 










MAINDEC-11-DZRJI-A, RPO4/S/6 FUNCT. CONT. TST-PT 1 
1432 DATA BUFFERS FOR READ/WRITE 
1440 RESERVED CORE LOCATIONS 


1461 TABLE _FOR ATTENTION BITS 
ATTENTION TABLE 


1470 ~=FLAGS AND INTERNAL PROGRAM CONTROL WORDS 
JES HEHEHE HEHEHE HHH EEE HEE 
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RREARRAAEAAL AAA ALLA RL AERA LAER LAER KALE RAL AR RAE ERA ALAA AKA ERARALE RES 





JEBEEBHE HHH HEHEHE HHS 
1506 $ #**DIAGNOSTIC CODE*# 
JEHEHEEHHEE HHH EEE EEE EEE 






RERASRAAARLA ALARA RARE ALA AAA ALARA LALA ALAA LER RAL ERA RAK LARA RARER EEE 
KEARARALL AAA REALL LALA LARA AREA ALARA LE LALLA AERA L ARAL RERAALA RELA EE 






1507 






RLLAALALLALARALAALE LA LRA RE LE REA RAHA LAL AA LE RE LELA LALLA ALARA AALERE 


1510 SETUP TESTS 
HEA KK HR HERE HEHEHE HEHE HEHE SEE EEE EEE KR HER TEESE AEE HEHE HEHE EE HE EE EEE EERE EERE EEE EEE 






JEHBHEEEHHHH HEHEHE HEHEHE HHH EEE THEE EEE 
1525 INITIALIZE THE COMMON TAGS 
SR SESE EE SE EE 9999 EE 9 EE HE HEE 







REKAKAAAAAAALA LAL RA LA LAA LAA A AAA KAA AAR EAA REALL ALA LAER LAA RKRAEEE 
1612 GET VALUE FOR SOFTWARE SWITCH REGISTER 
LAKARA ALARA LAA L AAA L LARA LALA AA AE RAK AA ALAA AERA RASA AE AL ARAL AKL KR EAHA 
1627 15 THERE @ P-CLOCK. (KULL-P) ON THE SYSTEM 
IF TRAPS GO TO *WAIT.P’ 
TF 80 MAKE RPOM INTERRUPTS GO TO 'TINE 1” 
IF NOT MAKE WAT’ TRAPS GO TO "WAIT. T° 
IF NOT MAKE RPOY INTERRUPTS GO TO ‘TIME 2’ 
1633 THE NEXT LINE IS TO BE ADDED LATER 
AND THE JUMP AND NOP REMOVED f 
FOR NOW NO CLOCK WILL BE USED 
1876 TEST 1 REFERENCE EACH REGISTER 
1678 REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 


1722 TEST 2 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 












— 
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1724 CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES INTO IT 
1745 TEST 3. TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
1747 THE nee a DRIVES PRESENT IS FOUND 
BY MOVING ALL ONES INTO RHER1 iirTH UNIT NUMBER 
IN RHCS2 INCREMENTED FROM ZERO TO SEVEN 
1751 THE BITS SET IN RHAS SHOULD GIVE DRIVES PRESENT 


1753 THE DRIVE TYPE IS CHECKED TO BE AN RPOY/RPOS AND THEN 
UNITS PRESENT ARE STORED IN A TABLE CALLED ‘UNITS’ 


1813 SET UP UNITS TABLE 


1848 NO...IT°S NOT AN RPOY/RPOS/RPOG DEVICE SO TYPE 
OUT THE DEVICE TYPE 


1891 TEST 4 TYPE SERIAL NUMBER AND DRIVE TYPE 


1893 SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN *ATTENT’ 
TYPE UNIT UNDER TEST 


1896 READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 
TYPE THEM OUT AND PROCEED 


1899 TO LOOP HERE SET SWITCH 8, AND THIS TEST NUMBER ON 
SWITCHES O THRU 7 AND RESTART 


1925 INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
& DECREMENT THE “NOUNITS” PRESENT (TO BE TESTED) 


2052 TEST S CHECK MOL TO BE HIGH 

2054 MAKE SURE THAT DRIVE IS ON LINE BEFORE STARTING PROGRAM 
IF DRIVE IS OFFLINE, THEN AFTER TYPE OUT THE PROGRAM WILL 
HANG FOR EVER WAITING FOR DRIVE TO GO ON LINE. 

2084 TEST & PROGRAM INTERRUPT 

2086 PROGRAM INTERRUPT IS TESTED BY SETTING RDY AND IE 
IN_RHCS1 AT T TIM 


THIS SHOULD INTERRUPT THROUGH LOCATION 254 
THE PROCESSOR PRIORITY IS SET TO 4 


eles TEST 7 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


2127 PROCESSOR PRIORITY IS SET AT S (SAME AS THE DISK) 
IE AND RDY IS SET. THIS SHOULD NOT ALLOW INTERRUPT 











30-MAR-76 23:05 PAGE le SEQ 0023 
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2165 TEST 10 PACK ACKNOWLEDGE 
2167 IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED 


IF THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF _NO_ACT-11 MONITOR IS PRESENT 
THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


wie TESTS i Sar saat COMMAND=44 
IT_- RHDS1 BIT #6 
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B CS1 BIT #11 
THE DRIVE IS STOPED NOL IS CHECKED TO BE 0 
AND DVA SHOULD 

THE DRIVE IS POWERED U 

VV SHOULD BE O, MOL SHOULD BE 1, DVA SHOULD BE 1 
GO SHOU 0’ 


L 
ALL REGISTERS EXCEPT RHDB, RHLA AND RHCC ARE STORED 
PACK ACKNOWLEDGE IS ISSUED 
ALL STORED REGISTERS SHOULD BE UNCHANGED 
EXCEPT VV 
2202 THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
2304 NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


2345 NOW COMPARE REGISTERS SO THAT NO REGISTERS 
CHANGED EXCEPT VV IN RHDS1 AND IE IN RHCS1 


2378 TEST 11 SET VV BIT #6 IN RHDS1 
THIS TEST SETS VV IN RHDS1 INCASE 
ae at peta Sh IS PRESENT AND THE PREVIOUS TEST 


THERE IS A RESET AT THE BEGINING OF THIS TEST 
FOR ERROR RECOVERY ONLY. 


2388 IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP 
OR POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 


2409 NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


2444 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO » 


2475 NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
WITH AFTER PACK ACKNOWLEDGE 
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2si7 TEST 12 MAKE CURRENT CYLINDER = 377 
° 2536 TEST 13 MAKE CURRENT CYLINDER = 777 
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SEQ 0025 








7 ess3 TEST 14 ADDRESS PLUG CHANGE ERROR 
esss eo reo Oeaee oe FUNCTIONALITY 
G_THE ADDRE pUR NG A COMMAND ISSUED 
EE COMMAND IS STILL ACTIVE WHEN 


i IAG Nogtie MODE aia aT: AN 
LUG IS PULLED) AND VERIFYING THAT THE DRIVE GOES OFF LINE 


e560 pe ADDRESS PLUG IS THEN REPLACED ge RETURN of He CROPER 
ATTENTION HAE COME UP IN THE PROPER BIT LOCATION(????7), AND THE 
ADDRESS CHANGE ERROR (ACE) - RHER3 BIT #13 IS SET, AS WELL AS 
SC, TRE,ERR,AND MCPE; VV IS RESET AND RHCC = 000 (ORIVE RECAL TBRATED) 


eS66 IN ADDITION VERIFICATION IS ALSO MADE THAT NO OTHER DRIVE 
NUMBERS APPEAR ON THE BUSS AFTER THE PLUG IS REPLACED. (777777) 


2597 THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 


211 SET DIAGNOSTIC MODE TO ENABLE A COMMAND ACTIVE WHILE 
THE PLUG IS PULLED 


2616 TAKE AN INITIAL REGISTER SNAPSHOT 


2626 ISSUE A COMMAND AND THE ’GO’ BIT (NOT POSITIONING COMMAND) 
TO VERIFY COMMAND ABORT IF PLUG IS PULLED 


2631 ISSUE SOME CLOCKS TO GET THE COMMAND STARTED 
(USE “SEARCH” WITH “DTETST” FLAG UP TO STOP CLOCKING 7?) 


2648 CHECK THAT THE UNIT NO. UNDER TEST HAS GONE OFFLINE 
2653 NOW REPLACE THE ADDRESS PLUG 

2674 CHECK THAT THE ORIGINAL UNIT HAS COME BACK ON LINE 
2689 AFTER THE PLUG CHANGE 


2733 TAKE A NEW REGISTER SNAPSHOT AND 
COMPARE THE REGISTER CONTENTS WITH EXPECTED VALUES 


2751 NOW CLEAR OU" THE CONTROLLER AND DRIVE 
2760 CHANGE THE REGISTER SNAPSHOT TO EXPECTED VALUES AFTER THE CLEAR 


2807 TAKE ANOTHER REGISTER SNAPSHOT AND COMPARE RESULTS 
WITH THE EXPECTED VALUES 


an 
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2S24 (USE NED METHOD TO VERIFY 
THAT ATTENTION SIT COMES UP IN THE PROPER LOCATION °?) 


2830 SET "VV" IN RHOS] AFTER RESET FROM THE RECALISRATE 
CRUSED BY PULLING THE PLUG 


2SsS TEST 15 CHECK ALL ADDRESS PLUG ADDRESSES 
23s’ CHECK THAT ALL ADORESS PLUG NUMBERS FUNCTION PROPERLY 
2859 - THIS TEST IS DONE FOR MEMOREX RPO4’S AND RPOS'S ONLY 
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THIS TEST IS SELECTED BY SWa#S AND THE DEFAULT IS NOT TO DO IT 


2877 CHECK TO SEE IF THIS TEST HAS BEEN SELECTED WITH SWS 

2sss THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE Ok 
232” CHANGE ADDRESS PLUG ON THE UNIT UNDER TEST 

es4e HOUSEKEEPING 

e958 ATTEMPT TO ADDRESS THE NEW UNIT NUMBER 

ess CHECK IF ALL UNIT NUMBERS HAVE BEEN TRIED 


298s SET "VV°IN RHDS] AFTER RESET FROM THE RECALIBRATE 
CAUSED BY PULLING THE ADDRESS PLUGS OUT 


SLETAFFEARERETRELZLEELELAERELLEREERERESLL ELLE LLERLFELALLETLLAAERELE 
LFRLFLLESLELAATSLRALALELETSTARAEFLLAAERSLAERELELERALEFLLLFERERALRTE 
LRELAEFEAFEALELALLAFLSSAESLLHLTELFELERERLELLSLLLHLAARERLALERASRAFE 
##DRIVE COMMAND TESTS## 

SRETLELLELLSATEALEL ELELFLALELATLESEALTEASERALLERKALSLALELARALLSLE 
TELFSLLLRELSRELSLLALAT EFAS SLELERSELELRELRELLARELLFLLALASLEFLERSLARE 
KLESFELEFSLEFEELAFLLLELELLELLELELALELLRLELERE LEASE REALAAALELALAAEARELE 


3028 TEST 16 NO wsdl FUNCTION TEST 
ALL POSSIBLE REGISTERS ARE SL enned THEN A”™NOP™=0 
NO_CHANGE HAP! 





IS GIVEN NO C 
ALL POSSIBLE REGISTERS ARE PILLED WITH ONES THEN A 
IS GIVEN NO CHANGE SHOULD HAPPEN 


3084 NOW SAVE REGISTERS FOR aniasaras AFTER NO OPERATION 


2087 NOW COMPARE REGISTERS BEFORE NO-OP COMMAND 
WITH AFTER NO-OP COMMAND 


we a me ee ee ee 


"NOP" 
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3197 
3135 
3163 
3292 
3223 


3246 


3266 
3288 
3338 
3436 


S46: 


NOW REPEAT TEST SY MOVING IN ALL POSSIBLE ONES 
NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
NOW SAVE REGISTERS FOR COMPARISON AFTER A NO-OP 
CHANGE REGISTERS TO EXPECTED VALUES 


NOW COMPARE REGISTERS BEFORE NO-OP WITH 
AFTER NO-OP COMMAND 


TEST 17 DRIVE CLEAR 
ALL WRITE BITS OF ALL REGISTERS ARE FILLED 
WITH ONES EXCEPT GO, CLR. IE, PAT, MCPE, UPE 
THEN A DRIVE CLEAR {tS GIVEN 
THEN ALL REGISTERS ARE CHECKED TO HAVE APPROPIAVE VALUE 


WRITE ALL WRITABLE REGISTER BITS 

NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 

NOW LOAD "SAVERE’ REGISTER SNAPSHOT WITH EXPECTED VALUES 
NOW THAT SAVERE TABLE HAS BEEN LOADED WITH 

EXPECTED va, THE REGISTERS WILL BE COMPARED 

WITH SAVERE TABLE 


TEST 20 READ-IN-PRESET 
IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT SE PERFORMED 


THE PROGRAM WORKS UNDER ACT-i! MONITOR 
Then THIS TEST IS NOT PERFORMED 


IF _NO_ACT-1) MONITOR IS PRESENT THEN 
THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


THIS TESTS THE READ-IN-PRESET COMMAND 
RS DR DOWN AND UP IN ORDER TO 


w 
Ps 
Fi 
m 
o 


EPRI a FLED 
1S mabe = 6 


THEN A READ-IN-PRESET COMMAND = 20 IS GIVEN 
THEN ALL REGISTERS ARE TESTED 
THE FOLLOWING SHOULD BE THE REGISTER CONTENTS 

RHCA = 0. RHDST = oy RHOF SHOUL 

FMT22 = 0, ECI = RHOS 1 SRoULD HAVE VV = 1 
ALL OTHER * REGISTERS Sas One UNCHANGED 


SEG 0027 
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3497 
3544 
3565 
3595 
3643 
3670 


3702 
3704 


3737 
3767 
2815 
3842 


3883 
3302 
3921 


THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
NOW INITIALIZE ALL THE REGISTERS 

NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 

NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 
NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

NOW THAT SAVERE TASLE WITH SAVED REGISTERS HAVE 

THE EXPECTED VALUE AFTER A READ-IN COMMAND 

COMPARISONS ARE MADE 

TEST 21 READ-IN-PRESET 


THIS TEST IS THE SAME AS THE PREVIOUS TEST EXCEPT 
THAT IT DOES NOT TEST THE SETTING OF VV 


yt TEST IS HERE BECAUSE IF ACT-11 MONITOR IS PRESENT 
T THE PREVIOUS TEST WILL NOT BE PERFORMED 
HE RE SET COMMAND 


Le oat RH raf nce ae 
t 15 mabe = 6 
THEN A READ-IN-PRESET COMMAND = 20 IS GIVEN 
THEN. ALL REGISTERS ARE TESTED 
OLLOWI D BE THE REGISTER CONTENTS 
eae 7 » RHOF SHOULD 
FMT22 = 0, ECI "HCI = 0, RHDS1 SHOULD HAVE VV = 1 
ALL OTHER aecdefede SHOULD BE UNCHANGED 
INITIALIZE ALL THE REGISTERS 
NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 
NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE 
THE EXPECTED VALUE AFTER A READ-IN COMMAND 
COMPARISONS ARE MADE 
TEST 22 MAKE CURRENT CYLINDER = 777 
TEST 23 MOXE CURRENT CYLINDER = 377 


TEST 24 RECALIBRATE COMMAND 


em ee - = - eee PR ER Ae ed OA a RT i 
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3923 


3326 
3962 
3931 
4022 


4054 
4074 
4105 
4124 
4142 
4144 


4147 
4i91 
4222 


4245 
4269 
4288 
4290 


THEN’ A RECACIBRATE = CORMAND TS GIVEN 
NO REGISTERS SHOULD CHANGE EXCEPT RHCC = 0 
NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
NOW SAVE REGISTERS FOR COMPARISON AFTER RECALISRATE 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 
TEST 25 MAKE CURRENT CYLINDER = 777 

TEST 26 MAKE CURRENT CYLINDER = 377 

TEST 27 RECALIBRATE COMMAND 


ALL POSSIBLE REGISTERS ARE FILLED WITH O 
THEN A RECALIBRATE =6 COMMAND IS GIVEN 


NO REGISTERS SHOULD CHANGE EXCEPT RHCC=0 
NOW SAVE REGISTERS FOR COMPARISON AFTER RECALISRATE 


COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 
TEST 30 UNLOAD COMMAND 


IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED 


IF _THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF _NO_ACT-11 MONITOR IS PRESENT 


THEN THIS TEST IS PERFORMED ONLY ON THE FIRST FASS 


ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


ALL egestas REGISTERS ARE FILLED WITH ONES 
THEN AN UNLOAD C =e 


NO reGia'e zee CHANGE EXCEPT 14 SHOULD=0 
a gy HE ORIVE IS POWERED UP BY OPERA 


TOR 
AND A PACK ACKNOWLECGE COMMAND (ALREADY TESTED) 


SETS V¥-IN RHDOS] 


ee ee oe | ee ee ee 
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4311 THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
4337 THIS SETTING OF VV IS FOR LOOP ON ERROR ONLY 7 

WHERE UNLOAD TAKES EFFECT AND CYCLE UP BRINGS VV DOWN 
4364 § SET VV IN RHDS1 WITH PACK ACKNOWLEDGE 
4392 LOAD ALL POSSIBLE REGISTERS WITH ONES 
4434 NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
4465 NOW SAVE REGISTERS FOR COMPARISON AFTER UNLOAD 
4499. COMPARE CONTENTS OF RHCS1 AND RHDS1, WHICH WERE SAVED 
DURING THE UNLOAD COMMAND, WITH THE EXPECTED RESULTS 
4547 NOW CHANGE REGISTERS SAVED BEFORE UNLOAD COMMAND 
TO EXPECTED VALUES AFTER UNLOAD COMMAND 
4550 - AGAIN "MOL’ § "VV" ARE DON’T CARES 
4585 NOW COMPARE REGISTERS AFTER THE UNLOAD COMMAND 
WITH EXPECTED VALUES 
4624 SET VV_IN RHDS] AFTER RESET FROM ACTUATING 
THE STANDBY SWITCH AND CYCLING UP (MOL = 1) 
4546 TEST 31 OFFSET AND RETURN TO CENTER LINE COMMAND 
4648 THIS TESTS TWO COMMANDS: (1)OFFSET, (2)RETURN-TO-CENTER-LINE 
4650 ALL POSSIBLE REGISTERS ARE FILLED WITH ONES (EXCEPT RHOF) 
BNO BN OFFSET IS GIVEN 
L REGISTERS ARE COMPARED, ONLY ATA SHOULD SET 
act OTHER REGISTERS SHOULD REMAIN UNCHANGED 
4655 THEN A RETURN-TO-CENTER-LINE IS GIVEN 
ALL REGISTERS ARE COMPARED ONLY ATA SHOULD SET 
AND RHOF SHOULD CLEAR (EXCEPT het. ECF FMT22) 
ALL OTHER REGISTERS SHOULD REMAIN UNCHANGED 
4660 THE ABOVE PROCESS IS REPEATED FOR OFFSET REGISTER 
VALUES OF 1 TO 377 IE. 377 TIMES 
4713. THE OFFSET REGISTER WILL BE INCREMENTED FROM 0 TO 377 
472i NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
4748 NOW SAVE REGISTERS FOR COMPARISON AFTER OFFSET 


a ee 
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COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 

NOW COMPARE REGISTERS AFTER AN OFSET COMMAND 

NOW A RETURN TC CENTER LINE COMMAND WILL BE GIVEN 
NOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NOW CHANGE SAVED REGISTER TO EXPECTED VALUE 
NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-LINE 
TEST 32 OFFSET COMMAND 


S055 





4782 


4814 
4835 
4856 
4868 
4902 


4934 
4955 
4991 
4993 


THIS TEST WILL ONLY GIVE REPEATED OFFSETS 


ERERERE EERE EER RER ERE ERE REEL ARE EEE RARER EREDAR ER EERE EERE REE 
READ/WRITE TESTS USING MECIA 
ERERALAL LALA EEE RE EERE REEL REALL ELE EE EERE ER ERE ER EE EE REARS RELERE LER 


scose 


S060 


TEST 33 WRITE/READ HEADER AND DATA (0°S) 


WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR 0, KEYS=0, NUMBER OF WORDS 256 WORDS 


THEN READ HEADER AND DATA FOR ABOVE. 
rh ay wee = OF a INTO BUFFER ARE FILLED WITH 


THE rar COMMAND is PuEN LOADED INTO THE oO EXCEPT 
THE GO BIT, AND ALL THE REGISTERS ARE SAVE 
THEN GO IS'’GIVEN FOR WRITE HEADER AND Bara 


ren ti REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED 
THEN TE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 


NOW FOR THE READ COMMAND READ INTO BUFFER IS FI 
WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS 
GO BIT AND ALL REGISTERS ARE SAVED 

GO IS GIVEN FOR THE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED. 


LLED 
EXCEPT 
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S092 4s FILL WRITE FROM SUFFER WITH HEADER 
S103 FILL WRITE FROM BUFFER WITH DATA d 
S111 NOW READ INTO BUFFER W WITH SAME DATA tit 
ne ary Eth FRon SBuEFER 5) THe T ARTER A URITE CE MPAR: SONS =i 
RHANGE WRITE PROM BUPEER 
5130 NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
5150 NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA } 
5182 ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 
5192 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 
5216 NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5228 NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 
S248 NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
NOTHING GOT CHANGED 
5254 NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
READ INTO BUFFER IS FILLED WITH ONES 
5279 NOW FILL COMMAND 
S299 NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
5339 COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 
5363 CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5375 COMPARE REGISTER BEFORE READ HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 
5294 NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
THE READ WAS GOOD 
S415 TEST 34 READ DATA (0’S) 
S417 THIS TEST REAOS DATA WRITTEN BY THE PREVIQUS TEST 












THE WRITE FROM BUFFER IS FILLED WITH ALL OS 
THE COMMAND IS FILL THEN Ait REGISTERS SAVED 
N READ DATA CORNED Ie 


THE 
ALL REGISTERS ARE COMP aren’ FOR PROPER VALUES 
READ DATA INTO 'READ INTO’ BUFFER IS CHECKED 
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S434 FILL WRITE FROM SUFFER WITH EXPECTED DATA 
S442 NOW THE READ DATA COMMAND WILL BE FILLED 
5461 NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


5501 COMPARE CONTENTS OF RHCS1 AND RHOS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


SS2S NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


S537 NOW COMPARE REGISTERS BEFORE READ DATA WITH 
AFTER COMMAND 


$553 NOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ 
WAS GOOD 
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S572 = TEST 35 WRITE/READ DATA (1'S & 125252) 


5574 THIS TEST GIVES A WRITE DATA COMMAND FRO CYLINDER 0 
TRACK 0. SECTOR O, KEYS O 200 WORDS OF ALL ONES 
THIS SECTOR IS F FORMATED AAs, PRE OUS TEST 
THEN READ DATA COMMAND TVEN-FOR 252 WORDS IN 
SAME CYLINDER, TRACK 


zero KEYS 
WRITE FROM BUFFER BND READ INTO BUFFER ARE FILLED WITH 
200 ONES AND 7 


l 
THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA 


THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 OF ZEROS 
ae a 4 37 WRITE FROM BUFFER IS FILLED WITH 200 ONES 
ie ee EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 


ALL REGISTERS ARE CHECKED 

READ DATA IS CHECKED 
5508 NOW FILL WRITE FROM BUFFER -200 OF 1°S AND S6& OF leSeSe 
S621 NOW READ INTO BUFFER wilh a Ra ye WITH a DATA AS 


| WRITE FROM BUFFER SO T WRITE COMPARISONS 

| CAN BE MADE TO SETERMINE "THAT RITE DID NOT CHANGE BUFFER 
i 
} 
! 
| 
| 
! 
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5636 
S6s5 
S687 
5697 


$721 


5733 
5752 
S767 
5769 


5788 
5801 
5829 
5869 


5884 
5896 


5914 
5934 
$936 
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NOW WRITE DATA COMMAND WILL BE LOADED 
NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 
ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMECIATELY AFTER GO 


NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
AFTER COMMAND 


NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 

NOW A READ CATA COMMAND WILL BE GIVEN 

FILL READ INTO BUFFER WITH 200 ZEROS AND S6 OF 377 

FILL WRITE FROM BUFFER WITH 200 ONES AND S6 OF 377 

NOW FILL COMMAND 

NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


CHANGE SAVED REGISTERS TO EXPECTED VALUES 


COMPARE REGISTERS BEFORE READ DATA COMMAND 
WITH REGISTERS AFTER COMMAND 


NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 
TEST 36 WRITE/READ DATA (125252) 
THIS TEST GIVES A a M3 TA COMMAND FOR CYLINDER 0 
viene OF 1eSeSe 


































TEST 

VEN TOR 256 WORDS IN 
SAME CYLINDE eenck ares KEYS 
Ee: AND READ INTO BUFFER ARE FILLED WITH 
THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATI 
THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 256 OF ZEROS 
WRITE FROM BUFFER IS FILLED WITH 
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FRE ConmaRD E : 
OMMAND EXCEP£ GO IS LOADED, ALL REGISTERS ARE SAVED 
GO IS GIVEN 





ALL REGISTERS ARE CHECKED 
READ DATA IS CHECKED 


S970 NOW FILL WRITE FROM BUFFER - 256 OF 125252 
5978 NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 
5988 NOW WRITE DATA COMMAND WILL BE LOADED 


6007 ##NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 










6039 ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC . 
6049 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN . 
RO AND RS IMMEDIATELY AFTER GO 4 





6073 NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
6085 NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
AFTER COMMAND 





6104 NOW WRITE FROM BUFFER WILL CHECKED FOR NO CHANGE 


6119 NOW A_READ DATA COMMAND WILL BE GIVEN 
FILL READ INTO BUFFER WITH eS6 ZEROS 


6134 FILL WRITE FROM BUFFER WITH 256 OF 125252 
6142 NOW FILL COMMAND 
6161 NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


6201 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


b2e5 CHANGE SAVED REGISTERS TO EXPECTED VALUES 


6237 COMPARE REGISTERS BEFORE READ DATA COMMAND 
WITH REGISTERS AFTER COMMAND 


6255 NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 
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6273 TEST 37 WRITE/READ DATA (O0S2SeS) 


6275 iS 7". Bives wire +. bin FOR CYLINDER 0 
F _OSeSeS 


KEYS ORDS_0 
HES OMe CBRE ENO BE nos 
BRITE CERON NPELEFER BND READ OFATO BUFFER ARE FILLED WITH 
200 OF OS2525 AND S 77 


THE E COMM RAND. TS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS TO WRITE DATI 

















THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 
AND S6 ALL ONES, WRITE FROM BUFFER IS FILLED WITH 200 
WORDS OF S2S2S AND S6 WORDS OF 0 

THe Co MAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 










ALL REGISTER ARE CHECKED 
READ DATA IS CHECKED 


6309 NOW FILL WRITE FROM BUFFER-200 OF SeS2S AND S6& OF 377 
6322 NOW READ INTO BUFFER aT BE FILLED WITH ea edhe AS 
WRITE FROM BUFFER SO THAT AFTER A WRITE COMP ONS 
CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 
6337 NOW WRITE DATA COMMAND WILL BE LOADED 
6356 NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 
6388 ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 


6398 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


&422 NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


6434 NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
AFTER COMMAND 


6453 NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 
E468 NOW A READ DATA COMMAND WILL BE GIVEN 
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6470 FILL READ INTO BUFFER WITH 200 ZEROS AND S6 OF ALL ONES 
6489 FILL WRITE FROM BUFFER WITH 200 OF SeSeS AND S6 OF O 

6502 NOW FILL COMMAND 

6Se1 NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


6561 COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


6585 CHANGE SAVED REGISTERS TO EXPECTED VALUES 


6597 COMPARE REGISTERS BEFORE READ DATA sesamiae? 
WITH REGISTERS AFTER COMMAND 


6615 NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 
6636 TEST 40 WRITE/READ DATA USING UNIBUS B 


6638 THIS TEST USES UNIBUS B IF CONNECTED TO THE RH 
IF UNIBUS B IS NOT CONNECTED THEN THIS Test IS NOT PERFORMED 
THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER O 
TRACK 0, SECTOR 0, KEYS 0, 200 WO a 0 sea6 
THI 1S KSEeTOR IS FORMATED BY PREVIOUS TEST 
T DATA COMMAND IS GI VEN FOR 256 WORDS IN 
cane CYLINDER, TRACK, SECTOR 
THESE COMMANDS USE UNIBUS B FoR A oaTA 
WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
200 OF OS2525 AND Sb OF 377 
THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA 


SEQ 0037 














































THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 

AND S& ALL ONES. WRITE FROM BUFFER IS FILLED WITH 200 
WORD OF GoSce AND SWORDS OF O 

THE COnMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 









ALL REGISTER ARE CHECKED — 
READ DATA IS CHECKED 


6676 CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70 
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6685 NOW FILL WRITE FROM BUFFER-200 OF S2S2S AND S6 OF 377 
6698 NOW READ INTO BUFFER WILL BE_FILLED an ee DATA _AS 
WRITE FROM BUFFER SO THAT AFTER A BRITE cow ARISONS 
CAN BE MADE TO DETERMINE THAT WRITE NOT CHANGE BUFFER 
6713 NOW WRITE DATA COMMAND WILL BE LOADED 
6734 | NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 
6765 ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 


$775 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


6800 CHECK IF _NEM NON EXISTANT MEMORY IS SET 
IF SET IT MEANS UNIBUS B IS NOT CONNECTED 
SO THIS TEST IS NOT PERFORMED 

6822 $$ NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


6834 NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
AFTER COMMAND 


6854 NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 


6870 NOW A READ DATA COMMAND WILL BE GIVEN 
FILL READ INTO BUFFER WITH 200 ZEROS AND S6 OF ALL ONES 


6890 FILL WRITE FROM BUFFER WITH 200 OF S2525 AND S6 OF O 
6903 NOW FILL COMMAND 
6924 NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


6963 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


6987 CHANGE SAVED REGISTERS TO EXPECTED VALUES 


6999 COMPARE REGISTERS BEFORE READ DATA COMMAND 
WITH REGISTERS AFTER COMMAND 


7018 NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 
7043 TEST 41 IMPLIED SEARCH 


7045 ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEARCH 
A tt HEADER AND DATA IS GIVEN FOR MORE THAN ONE SECTOR 


OF WORDS 
| WRITE HEADER AND DATA CYLINDER 0 FORMAT 16 BITS PER WORD 
| TRACK 0, SECTOR 0, KEYS=0, NUMBER OF ORDS 
266 (4 HEADER 2S56'DATA=0 4 HEADER oF oar A=1 
THEN READ HEADER AND DATA FOR ABOVE SECTOR 1 ONLY 
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—_— 


--—_—— = —- ee ee 
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WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
10000,0,5,0 AND 256 OF 6 19900, 1 

THE WRITE COMMAND IS THEN SADED Into’ THe REGISTERS EXCEPT 
THE GO BIT, AND ALL. THE RERTeTERS AR AVED 

THEN GO IS'GIVEN FOR WRITE HEADER AND Barn 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGE 
THEN WRITE FROM SUFFER IS CHECKED TO SEE THAT NCTHING CHANGED 
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NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 

WITH 377 RITE <F Ron BUFFER IS FILLED WITH 19900.1.0.0.1,1 
aN eH OF 2 S COMMAND IS LOADED INTO REGISTERS EXCEPT 
GO AND I PY nen ORL REGISTERS ARE SAVED 
GO IS GIVEN FOR THE READ COMMAND, 2S6 WORDS 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED 


708i FILL WRITE FROM BUFFER WITH HEADER 

7091 FILL WRITE FROM BUFFER WITH DATA 

7098 FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 
7198 FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA 
| 
' 
| 
| 












ris NOW READ INTO BUFFER WILL aS eau ED WITH SAME DATA 
AS WRITE FROM ste SO_THAT AFTER A WRITE COMPARISONS 
CAN Q MAKE SURE THAT WRITE DID NOT 
CHANGE WRITE FROM BUFFER. 
7147 NOW THE WRITE HEADER AND DATA COMMAND WILL SE FILLED 
718? NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DAT! 
7198 ONE REVOLUTION = 18670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


7208 COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


7232 NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


7244 NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


7284 NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
NOTHING GOT CHANGED 


Qn etree oo oe 2 -<- oo —_ eee + eee ee ee 





ne ne 
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NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
FER 1§ FILLED WITH ONES 

WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA 
NOW FILL COMMAND 

NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND CATA 
ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR 760 MICRO SECONDS 
AND RHDS1 ALREADY SAVED IN 


7289 


ress 
7313 
7333 
7368 
7307S 


7399 
741) 


7431 


7452 
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CHANGE SAVED REGISTERS TO EXPECTED VALUES 


COMPARE REGISTERS BEFORE READ HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


READ INTO BUFFER WILL BE CHECKED TO SEE 
HAT READ WAS GOOD 


TEST 42 IMPLIED SEEK TO CYL O01 


RELEFEAFFLFLELATLFLAAKALELALTERELELALELELLELERALLAESAELELESLRASLEL 
SEEK TESTS 
TRALERALELAEAAAELATELERELALALASLERELELLETELERLELELLLESLLLLARELLELE 


7955 


ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEEK FROM CYLINDER 0 
TO CYLINDER 1, A WRITE HEADER AND DATA IS GIVEN FOR MORE THAN 
ONE SECTOR OF WORDS 


Ma 
~< 


FORMAT 16 BITS PER WORD 
HORS See WORDS 


8) 
SECTOR 0, CYL=: 
LLEO WITH 


OR_IMPROPER CHANGE 
THAT NOTHING CHANGED 


w 


COURT FROM BUFFER TS OFBED Atta 
ND 2 oF 5600 Bue BF SEROS REO aD IS LOADED 
TERS EXCEPT GO AND IE ALL REGISTERS ARE SAVED 
N FOR THE READ COMMAND 





a ne ee ee ee. - oe ee 
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ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATR IS COMPARED. 


FILL WRITE FROM SUFFER WITH HEADER 

FILL WRITE FROM BUFFER WITH DATA 

FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 

FILL WRITE FROM SUFFER WITH NEXT TRACK DATA 

NOW READ INTO BUFFER WIL, Wer FILLED WITH SAME DATA 

AS WRITE FROM BUFFER SO T AFTER A ae alate 

CAN BE MADE TO MAKE SURE THAT WRITE OID N 

CHANGE WRITE FROM BUFFER. 

NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 

NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 
ONE REVOLUTION = 16670 MICRO1 SEC, ONE SECTOR = 7&0 MICRO] SEC 


COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


NOW WRITE FROM BUFFER WILL SE CHECKED TO SEE THAT 
NOTHING GOT CHANGED 


NOW A_READ HEADER AND DATA COMMAND WILL BE GIVEN 
READ INTO BUFFER IS FILLED WITH ONES 


WRITE FROM SUFFER IS FILLED WITH 10001,0,0,0,e000,2000, AND 254 OF 2 
NOW FILL COMMAND 
NOW SAVE REGISTERS FOR COMPARISON AFTES SEAD HEADER AND DATA 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED iN 
RO AND RS IMMEDIATELY AFTER GO 


CHANGE SAVED REGISTERS TO EXPECTED VALUES 


COMPARE REGISTERS BEFORE READ HEADER AND DATA 
WITH REGISTERS APTER COMMAND 
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784s 


7867 
7865 


7893 


73093 
7340 
7951 
7959 
7970 
7978 
7998 
8030 


8042 


S06 
eces 


NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
THAT READ WAS GOOD 


TEST 43 SEEK & WRT TEST (CYL = 0-10) 


THIS TEST GETS THE HEADS OUT TO CYLINDER 10 NOT BY ONE 
SEEK BUT BY TEN IMPLIED SEEKS ONE CYLINDER AT A TIME 


wy Tesi piers re WITH A tae vee TEPR RECA SERATE 
tet TRACK is OT ini és 266 W a DS THERE ay CETTING 
THE TOC LEANER THEN IT WRITES 266 WORDS ON 
oy! ‘ie OR ach TRACK #18 THERE SY GETTING 
THIS 3 REPEATED 10 TIMES GETTING THE 
HEADS TO CYLI l 
THEN A SEEK COMMAND IS GIVEN TO CYLINDER 0 
AND DATA ALREADY WRITTEN IS CHECKED 
THE FOLLOWING MOVES ARE TO INITIALIZE TEST FROM 
YLINDER 0 


C 
THESE LOCATIONS ARE CHANGED DURING TEST TO ENABLE 
GOING TO NEXT CYLINDER 


THIS IS TO GET THE HEADS TO CYLINDER 0 
FILL WRITE FROM BUFFER WITH HEADER 

FILL WRITE FROM BUFFER WITH DATA 

FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 

FILL WRITE FROM BUFFER WITH NEXT TRACK DATA 

THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 

SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 

ONE REVOLUTION = 16670 MICRO SECONDS ONE SECTOR = 760 MICRO SEC. 
MAX TIME ALLOWED = ONE REVOLU + SEEK + 2 SECTORS 

MIN TIME ALLOWED = 2 SECTORS : CteK 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NOW CHANGES SAVED REGISTERS TO EXPECTED VALUES 


COMPARE REGISTERS SEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 
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8103 


8118 
8141 
8i61l 


8202 


8226 
8238 


§2S7 
8276 


8297 


8312 
8337 
8345 


8370 
8334 
B41 


TUP_TQ_ READ HEA AND_DATA FOR NEXT TRACK 

PILL RERD Ehvo BUPPER har ALL ONES 

FILL WRITE FROM BUFSER WITH EXPECTED DATA 

FILL COMMAND INTO REGISTERS 

SAVE REGISTERS FOR COMPARISON AFTER READ HEADER 

AND DATA 

COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 

CHANGE SAVED REGISTERS TO EXPECTED VALUES 


‘COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 


REGISTERS AFTER COMMAND 

REPD INTO BUFFER IS CHECKED FOR PROPER READ 

U6 anes HAVE ADVANCED ONE CYLINDER BY AN IMPLIED 
CHANGES WILL BE MADE TO ENABLE GOING TO THE NEXT 
CYLINDER AND THEN THE ABOVE WILL BE REPEATED 

TILL CYLINDER 10 IS REACHED 


THE HEADS ARE NOW AT CYLINDER 10 
ALL REGISTERS WILL BE SAVED AND A SEEK WILL BE GIVEN 


TO CYLINDER 

FILL REGISTERS FOR A SEEK COMMAND 

SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND 
SEEK FOR ONE CYLINDER=7MILI SEC., FOR TEN=70 MILI SEC 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
COMPARE REGISTERS AFTER A SEEK COMMAND 


oi rete Bt te THE CURRENT CYLINDER IS GOOD AND THERE ARE 
f& READ HEADER AND DATA WILL BE DONE ON CYLINDER 0 

a 'On che i CK 18, EXPECTED DATA IS 11eS 

CLEAR READ INTO BUFFER WITH ALL ONES 


me ee ee ee ee ee 
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8425 
8445 
8493 
8513 
815 


8533 
gs59 
8564 
8s89 
8598 


8622 
S646 
8653 


882 
8703 
8751 


FILL WRITE FROM SUFFER WITH EXPECTED DATA 
FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 
CHECK READ WORDS : 
TEST 44 SEEK & READ TEST (CYL = 009) 
THIS TEST DEPENDS ON HEADER AND DATA ght Gh 4 THE 
PREVIOUS TEST. AT THIS POINT THE HEADS ARE 0 
CYLINDER 0 
4, REGISTERS one SAVED 
A SEEK IS GIVEN TO CYLINDER 9 
ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
DATA WRITTEN ON CYLINDER 9 IS CHECKED 
THIS GETS HEADS TO CYLINDER 0 
FILL REGISTERS FOR A SEEK COMMAND 
SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND 
SEEK FOR ONE CYLINDER=7 MILI SEC., FOR TEN=70 MILI SEC 


COMPARE CONTENTS OF RHCS] AND RHOS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


NCW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

COMPARE REGISTERS AFTER A SEEK COMMAND 

of THs PUNT THE CURRENT CYLINDER IS GOOD AND THESE ARE 
A READ HEADER AND DATA WILL BE DONE ON CYLINDER $3 
SECTOR 21 TRACK 18, EXPECTED DATA IS 23125 

FOR 20 WORDS 

CLEAR READ INTO BUFFER WITH ALL ONES 

FILL WRITE FROM BUFFER WITH EXPECTED DATA 

FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 


CHECK READ WORDS 


re ee | 
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SES 0044 


ee cee eo ee ee ne ee eae oma 
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RERATSRAARRARA RASA RARALARRLAA REALL ARAL AAA ALA ER RELA RRA SA RRA R AE EE ERS 


WRITE CHECK DATA & WRITE PROTECT fESTS 
PRR ERR RR RRR RRR RSE EEE HEHEHE RRR EE RRR AESEE ER REEEEREEREE 


377 





877 
8775 


8811 
8846 
8856 


8885 
8897 
8307 
8929 
8936 
8955 
8993 
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TEST 4S WRITE CHECK HEADER AND DATA 


WRITE CHECK HEADER AND DATA CYLINDER S FORMAT 16 BITS PER WORD 

CK 7, SECTOR 4, KEYS 0, NUMBER OF WORDS 266 

CONSISTING OF 
WORDS OF 12344 (6 BITS FOR CYL, 5 FOR TRACK, 5 FOR SECTOR) 


OF lesebe 
WORDS OF ia ROTATING ZERO (EG 177776,177775) 
ORDS OF LEFT ROTATING ONE (EG 1,2,4,10) 


355 == 
oO 


2 WORDS OF 12345 


FIRST THE ABOVE DATA IS WRITTEN BY A WRITE HEADER AND 
DATA COMMAND 
CHECK FOR NO ERRORS 
THEN THE ABOVE DATA IS READ BY A READ HEADER AND DATA 
CHECK_FOR NO ERROR 
THEN THE ABOVE WRITE CHECK HEADER AND DATA IS GIVEN 
GET HEADS TO CYLINDER S 
FILL WRITE FROM BUFFER WITH HEADER 


10 WORDS OF OF THE FOLLOWING DATA 
12344, 17777, 0,S2SeS, leSeSe 


FILL LEFT ROTATING ZEROS FROM WRFROM+<S4. *2> "" 
FILL LEFT ROTATING ONE INTO WRFROM+<65. *2> 

FILL REST OF DATA 

READ INTO BUFFER WILL BE CLEARED 

THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 

NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 
NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
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9004 NOW COMPARE REGISTERS BEF ORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAN 
9024 NOW FILL COMMAND FOR READ 
90S0 NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
9088 CHANGE SAVED REGISTERS TO EXPECTED VALUES 
9100 COMPARE REGISTERS BEFORE READ HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 
9121 | NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
THAT READ WAS GOOD 
$140 A WRITE,READ HAS BEEN SUCCESSFULLY COMPLETED 
NOW A WRITE CHECK HEADER AND DATA WILL SE GIVEN 
FILL THE WRITE CHECK HEADER AND DAT 
S168 SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
9209  SOMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 
$233 CHANGE SAVED REGISTERS TO EXPECTED VALUES 
9245 COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 
9269 


9302 


TEST 46 WRITE CHECK DATA 
THE DATA FOR THIS, TEST IS WRITTEN ON DISK BY PREVIOUS TEST 
WRITE CHECK DATA CYLINDER S, FORMAT 16 BITS PER WORDS 
TRACK 7, SECTOR 4, KEYS 0, NUMBER OF WORDS 258 
CONSISTING OF 

10 WORDS OF 12344 (6 BITS FOR CYL; 5 FOR TRACK, S FOR SECTOR) 


25252 
WORDS OF LEFT ROTATING ZERO (€G177776, 177775) 
WORDS OF LEFT ROTATING ONE (ES 1,2,4,10) 


ORDS 
WORDS OF 12345 
FIRST THE ABOVE DATA IS FILLED INTO WRITE FROM BUFFER 
THEN THE ABOVE WRITE CHECK DATA IS GIVEN 
GET HEADS TO CYLINDER S 


a CS + 





SEQ O04S 
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3638 FILL LEFT ROTATING ONE INTO WRFROM+<65S. *2> 
39647 = FILL «REST OF DATA 
9659 FILL THE WRITE CHECK HEADER AND DATA 
9681 SAVE REGISTERS FOR COMPARISON OFTER WRITE CHECK 
9702 SET PORT SELECT 


9721 COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 


9745 CHANGE SAVED REGISTERS TO EXPECTED VALUES 


9757 COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
WITH REGISTER AFTER COMMAND 


978S TEST SO WRITE PROTECT OPERATION 
IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED 


IF _ THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF _NO_ACT-11 MONITOR IS PRESENT 
THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


WRITE FROM BUFFER IS FILLED WITH ALL ONES AND 
ori QO, TRACK O, CYLINDER O IS FILLED WITH 


ALL REGISTERS ARE SAVED THEN WRITE LOCK BUTTON IS 
PRESSED AND ALL REGISTERS ARE CHECKED. 

WRITE FROM BUFFER IS FILLED WITH 377 AND A WRITE IS 
ATTEMPTED TO SECTOR 0, TRACK O, CYLINDER O 70. WORDS 
ALL REGISTERS ARE CHECKED 


THE SAME SECTOR IS READ AND DATA COMPARED TO SEE 
THAT NOTHING GOT DESTROYED (READ DATA SHOULD BE ALL 
ONES AND NOT 377) 


THEN WRITE LOCK BUTTON IS PRESSED TO UNLOCK 
WRITE LOCKS AND ALL REGISTERS ARE COMPARED 


3813 THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 


9834 FILL SECTOR O, TRACK O, CYL O WITH ONES 
FILL WRITE FROM BUFFER 


9842 FILL WRITE DATA COMMAND 
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9881 TIME IS NOT CRITICAL 
9890 SAVE REGISTERS FOR COMPARISON AFTER WRITE PROTECT 
9891 BUTTON HAS BEEN HIT 
9911 + a REGISTER THAT SHOULD CHANGE IS RHDS1 - BIT #11 














9921 COMPARE ALL REGISTERS BEFORE WRITE WAS LOCKED 
OUT WITH REGISTER VALUES AFTER WRITE WAS LOCKED OUT 


NOW A WRITE WILL BE ATTEMPTED WITH WRITE LOCKED 
QUT BY BUTTON 

FILL WRITE FROM BUFFER WITH 377 

9958 TRY A ONE WORD WRITE 

9976 SAVE REGISTERS 

9998 TIME IS NOT CRITICAL 

10007 CHANGE SAVED REGISTERS TO EXPECTED VALUE 


10042 COMPARE REGISTERS BEFORE WRITE WAS ATTEMPTED 
WITH REGISTERS AFTER ATTEMPT 


19063 NOW A READ WILL BE DONE TO DETERMIN THAT 

READS CAN BE DONE WITH WRITE LOCKED OUT AND 

THAT NO DATA ON DISK GOT CHANGED, BUT FIRST CLEAR ERROR 
10080 FILL READ INTO BUFFER WITH O 
10087 FILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ 
10094 FILL COMMAND 
10135 COMPARE READ DATA 


1015S SAVE REGISTERS FOR COMPARISON AFTER WRITE LOCK HAS BEEN 
UNLOCKED 







3941 


























































10179 THE ONLY BIT THAT SHOULD CHANGE IS WRL-BIT #11 IN RHDS1 


10188 COMPARE ALL REGISTERS BEFORE WRITE LOCK WAS UNLOCKED 
WITH REGISTERS AFTER WRITE WAS UNLOCKED 


10216 TEST S1 END OF DRIVE 
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10218 THIS IS THE END OF TEST FOR ONE DRIVE 


DECDOC VER 00.04 




















10220 IF THERE ARE MORE DRIVES, THEN THE PROGRAM 
JUMPS TO TEST 4 FOR TESTING THE NEXT DRIVE 
10223 END PASS IS REACHED ONLY AFTER ALL DRIVES ARE TESTED 





ERALAAR EL RAKLAA LALA RASA LAA RARER AAA R AREA RE ALLELE ARERR RAEALAL ARLES 







RERLAAALERAALA LE REALL AEE AERA AKA RRR ALAA AERA A LARA RR EL EERE ALLELES 





tert te tht oe mee ita ic ne re Se ra 


10267 #**SUBROUTINES#® 
Prrreererrrtitrrrrrtti tir ittt ttt t ttt itt itt ttt ti ttt tt tt trite 






RXLFLARARELE RK LAKE RAL ALERT E LAK LE ALAA RALAAE KALA RAL LAKE RAL RAL AELER 







RELA LAAAAAALA AAA LA ARAL EL RAAA EARLE EAL L AAA RE RAL AE RE LAL RA AEARARKA ERE 





JE BEEBE HEHEHE HEHEHE HEE 


10271 END OF PASS ROUT 
HARA RRR A EERE EERE EERE REE REE EEE EE ERE EE EERE EE EE ERERE 


10274 ag a THE PASS NUMBER (S$PASS) 
TYPE “END PASS &XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
IF THERES A MONITOR GO TO IT 
IF THERE ISN’T JUMP TO TST1 


HE IESE HEHEHE SEHR IR HERE SESE EERSTE SERIE SESE EERE IEEE EERIE AEE EEE EEE EEE 
10312 JAM CURRENT CYLINDE 

JAB EHHHHH HEHEHE HEHEHE HEHEHE HHH EE 

10314 ars + lhe WILL CHANGE THE CURRENT CYLINDER REGISTER - ‘ae 


"RHCC’ WITH THE DESIRED CYLINDER VALUE. THE ROUTINE THEN CHECKS 
THAT THE LOADED VALUE IS CORRECT. 


CALL IS: 
JSR RO, DMAKECYL 

















;DESIRED VALUE OF CURRENT CYLINDER 


10363 THIS FILLS MEMORY WITH GIVEN DATA 
eeeP eer FOR HEADER INFORMATION 








JSR RO, J#F LHEAD sFILL HEADER 

LOC ;LOCATION WHERE SAVED 
XN ;NUMBER OF WORDS 

XD1 DATA REPEATED XN TIMES 






:DATA REPEATED XN TIMES 
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10381 NOW FILL DATA 


10392 THIS CLEARS ANY BLOCK OF MEMORY. 
er te IT WITH ANY DATA 


S 
- RO, J#CLAREA 


SEQ 00S1 






















; FROM 

N ;NUMBER_OF WORDS 

D ;DATA TO BE FILLED 
Rl WILL ow] STARTING geet OF BLOCK TO BE FILLED 
Re WILL HAVE NUMBER OF WORDS 
R3 WILL HAVE DATA 

10424 THIS ISA oT i TO FILL SAVED REGISTER LOCATION 

i allie 





JSR RO, J#F ILLRE 
RHXX REGISTER NAME 










1044S THIS SUBROUTINE SETS UP FOR SEARCH 
CALL IS 
JSR RO, d#SRCH 
C ; CYLINDER 


-SYTE & : SECTOR 
BYTE T ; TRACK 


10464 THIS SUBROUTINE SETS UP FOR SEEK COMMANDS 
CALL IS 


JSR RO, J#SEEKCY 
C ; CYLINDER 



















. 10474 lity ere SETS UP FOR OFFSET COMMANDS 


JSR RO, J#OF SET 
0 ;MICRO INCHES OFSET 


10497 THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1 
AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY 

(DRY) IN RHDS1 = 1 
10501 IT ALSO CHECKS THAT THERE ARE NO SITS STUCK AT 1 IN‘RHDS] 


10541 THIS IS A SUBROUTINE TO SAVE REGISTERS 
iN THE REGISTER TABLE TO ANY LOCATION 


HE CALL IS 
JSR ~~ RO, 3¥SAVER 
F ; FROM 


:TO 
:NUMBER OF WORDS SAVED 
F MUST aLMAYS BE’ RHCS! 
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10627 
10849 
10685 


T MUST ALWAYS BE SAVRE 
WHEN AN EVENT : TQ 3 yared THE RPOY VECTORS TO “TIME 1” 


IORITY , 
PRIORITY OF RED INTERRUPTS Is 7 


THIS IS A WRIT LOGP WHEN AN EVENT IS TO BE TIMED 
THE CALL IS 


WAT 

A iBTy ware REGISTER ADDRESS 

8 ;B17 at FOR 

TA 3 TIME AL D GIVEN IN 10 MICROSEC 
TO TOLERANCE PLUS/MINUS IN 10 MICROSEC 


Ri-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS 

Re-WILL HAVE ane PLUS/MINUS IN 10 MICRO SECONDS 
MINIMUM TIME T CAN BE MEASURED IS ABOUT le MICRO SECONDS 
FOR THE aOHEST PROCESEOR 


THIS SECTION WAITS FOR BIT, THROUGH TWC COUNT DOWNS 
NOW TIME AND TOLERANCE WILL BE CHECKED 

THIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILASLE 

NO TIMING IS DONE 


v 


s 3 RPSOLUTS REGISTER ADDRESS 
8 ;8IT WAITE) FOR 
Ta ;TIME-NOT USED HERE 


TO > TIME-NOT USED HERE 
R3-IS A TEMPORARY COUNTER 


THIS HAS THE TWO COUNT DOWNS FROM 177777 
BIT CID SET SO CHECK IF INTERRUPT OCCURED 
THIS CHANGES REGISTER SAVED VALUE 
CALL IS 

pm RO, J8CHREG 


; REGISTER TO BE CHANGED 
N !NUMBER OF BITS TO BE CHANGED 
NEI "NEW VALUE OF BIT MUST BE O ORL 
p POSITION OF BIT TO BE CHANGED 

NEW AND P WILL BE REPEATED N NUMBER OF TIMES 

THis FILLS A BLOCK WITH INCREMENTAL DATA 

“ JSR RO, 8F ILL ae 

N "NUMBER OF WORDS 
s STARTING VALUE OF DATA 


a ee em we eo one ae te ee ee eer eee eee: 





30-MAR-76 23:05 


PAGE 41 


AK G 


ACY, 


SE3 CCS2 
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nm 


au/ 


20806 


10829 
10833 
10861 


10865 


10928 


$9931 


10955 


I 


DECDOC VER 00.04 
; INCREMENT DATA BY 


NOW DATA WILL SE FILLED 
IS_A PeOROUT ING TQ COMPARE Reade sens 


GC 8 
Test 
CAL 


bata 18 In" 


He R aYSTERS Fanta 


> sR RO, aaCOMREG 

SAVERE ;GO0D DAT 

RHCS! :ADORESS OF ADDRESS TEST DATA 
:RETURN FOR 


FOR 6000" COMPARISON 


RG * RETURN 
ON RETURN WITH ERROR *S$GODAT* HAS GOOD DATA, “SBDDAT’ HAS BAD DATA 
*REGADR’ HAS REGISTER ADDRESS 


NOW SAVE REGISTERS 
NOW COMPARES WILL MADE 

HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 


+ THIS OPERATOR eee SCOPE LOOP IS USED THEN THE POINT 


TO CAN BE CHANGED. 


THE OP ee ae arti TO THE POINT WHERE THE PROGRAM CAN GO ARE: 


WITHIN THE TEST UNDER CONSIDERATION 
T SET 


T OCCUR WITHIN THE TEST UNDER CONSIDERATION 
S NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
TQ NORMAL OPERATI HOWEV 


HE PROGRAM WILL REVERT TO Ee ER, IF LOOP ON 
TEST SWITCH IS Set AND THIS lhe SELEGJABLE SCOPE LOOP +3 USED 
THE PROGRAM WILL LOOP BACK TO IT 


THE SELECTED POINT WHEN 


THEN 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


THIS SAVES THE CONTENTS OF ALL HARDWARE | REGISTERS 
IN MEMORY LOCATIONS TAGED FROM “WC” TO “ECe” 


pad ae IS DONE SO THAT COMPARES ARE DONE WITH ae LOCATIONS 


REGISTERS THEMSELVES. THIS 


D NOT THE WIL 
ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 
THIS IS A_DATA COMMAND SETUP SUBROUTINE 
THE CAL! 


BYTE 
BYTE 


JSR 


t 
AMO 

~~ 

wn 


-W 


RO, J#RUN 
; CYLINDER 
; SECTOR 
: TRACK 
sWORD COUNT 
;BUS ADDRESS 
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BAI BU eg INHIBIT 
FMT22tECIPHC!] =16 mie fen re MIBIT 

= Eck oFR RNPARC. INH NHIBIT 
COM COMMAND ADDRESS 


10983 THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 


10985 Ri HAS GOOD DATA BUFFER ADDRESS 
Re WAS TEST DATA BUFFER ADDRESS 
RS HAS pete oF eT ON ERROR 


Q BE COMPARED 
R4 HAS ONE MORE THAN NUMBER oF WORDS TO BE COMPARED 
i0991 CALL IS: 


JSR  ——- RO, daCOMPAR 
G sADDRESS OF GOOD DATA 


T ADDRESS OF TEST DAT 
N :NUMBER OF WORDS TO Be COMPARED 
RE RETURN ON ERR 
RG | RETURN ON NO PRROR 
11938 THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 


ADDRESS FROM 176700 TO ANY TYPED VALUE 


RELERERLLALER RRA ALLL EREEE EKER RERE EELS EERE ELLE EERE EARL LEER ERR EERE 
SCOPE HANDLER ROUTINE 
KERRERERARALL EERE RARER ER REEL EE EERE AER ERR ALLER ER RE RES RERA EERE SE 


11117 THIS ROUTINE CONTROLS THE LOOPING OF Bde bP IT WILL pty 
AND LOAD THE TEST NUMBER(STSTNM) INTO THE pisrt ay REG. (DISPLAY <7:0)) 
AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY< 15:08 
iy hr OPTIONS PROVIDED BY THIS ROUTINE ARE: 


SWil=1 og ITERATIONS 
SWO9=1 LOOP 
1 LOOP ON TEST IN SWR‘7:0> 


SCOPE 3; SCOPE=IOT 





ee ee ee 


f & 
a ‘ 
* 
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NO dha h hhh Sh daha bah bb dled deahadededdeh-deh-dedaded-tet-t-teh-beladelatadeatebatelelatedotelatatedatetatetel 
L117? CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
RRR RR ERR RRR EIR HEAR RHR RRR RAE RRR ERE EEE SEES EERE EEE EEE ER 


11180 THIS ROUTINE IS USED TO CHANGE A ig-git INARY NUMBER TO A S-DIGIT 
ae NED ae at (ASCII) eee a spe TYPE IT. QEPENOING ON WHETHER THE 


E OR A MINUS SI LL 
BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
haa WITH SPACES. 


MOV NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
TYPDS 33G0 TO THE ROUTINE 


FTARTARERERELELARLLTA TERA LERL LAA RLARERELALELERAELLELELELELERLAFARE 
11244 TYPE ROUTINE 
THREAT RLAAAERHRARRLAARERAAAAATALE RSL RERAL ALE SLARA RE RELA RRL LLAAKE 


11e47 ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE aR A ° aye 
SERT_A NUMBER OF NULL T RETER tek Ch EED. ; 
INS THE pte dhe Y BE USED AS THE FILLE “CaARACTER. 


NOTEL: L TA 
NOTEe: S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQU 
NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
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SEQ OOsS 

















CALL: 
4) USING A TRAP INSTRUCTION 
TYPE , MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


SEELEA ERLE ELLA LALLA RARER ELAL RA LALA ERLE RLER LAER AREER REAR ER ELE ES 

ii314 TTY INPUT ROUTINE 
! SHELALARERE LEAL RL AAA LAL ELA SLE RL RARER ELLE RARER ARERR RAKES E RELA EES 
' 
i 
| 


11325 TK INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT GUEUE 
oe THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


JSR PC, STKINT 
RETURN 


ii34e ig SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
e pg a gepeaties FROM THE INPUT BUFFER AND PUTTING 
IF THE CHARACTER 15 A “CONTROL-C” (tC) STKINT IS CALLED AND 
UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS 


‘OPERSEL | 
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11394 SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
BOUTINE 18 EN TERED “PRR HE Tha JHANDLER, AND W 
E SWITCH RERISTER TRAP 
aa NEN HE OERBTING® tH Wy THTERRUPT ANODE. 


11403 = CONTRO 3 PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER SEING SELECTED. 


11480 ty ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHR ;GET A CHARACTER oo THE QUEUE 
RETURN HERE ; |CHARACTER IS ON T 
;;WITH PARITY BIT STRIPPED OFF 


11504 her ROUTINE WILL INPUT A STRING FROM THE TTY 


RDLIN 33 INA A STRING FROM THE T 
RETURN HERE ; ;ADDRESS OF FIRST SHARAETER WILL BE ON THE STACK 
3; TERMINATOR WILE BE A BYTE OF ALL 0’S 


REEERRRA ALLER ER AA LER ARE EERE ERR A EERE ERE E EERE EERE LEER EE EEE 
READ AN OCTAL NUMBER FROM THE TTY 
RERLEE ARLE AREER ERE EERE RAE EE EERE EEE ER ERE RHEE EERE REAR REE EE EEE 


11545 THIS BOVT INE fhe READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


THE INPUT CHARACTERS WILL - WeerteR 19. INSURED THEY ARE LEGAL 

OCTAL DIGITS. IF AN ILLEGAL C nee A"?" WILL BE TYPED 

THEN BE BY A CARRIAGE RETURN AONE FEED, 1 HE COMPLETE NUMBER MUST 
RETYPED. THE INPUT IS TERMI D BY TYPING A CARRIAGE RETURN. 


RDOCT ;;READ AN OCTAL NUMBER 
RETURN HERE Bry ORDER BITS ARE ON TOP - THE STACK 
:HIGH ORDER BITS ARE IN SHIOCT 


Ae cane ha 


ERROR HANDLE 
SerecccaeciteessSrsetecheeeneuannunceaunesequansusescseanscsees 


11598 THIS ROUTINE WILL INCREMENT THE ERROR FLOG AND THE ERROR COUNT, 
Bae THE b “ren ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


THE atrteH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
SWiS=1 HAL 
SW13=1 INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 
ERROR N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
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SEG 0057 


REARALERARARAAARA ARAL AAA RAL ARAL EAA ALAA AAAS ALL AA LARA AR AKA KAKA AER 


11846 ERROR MESSAGE TYPEOUT ROUTINE 
RRR RRR RRR HERHEREEER RRR RRR EEE HEARSE HEHEHE HEHE EEE RRR EER EE 


11648 THIS ROUTINE USES THE “ITEM CONTROL nT eI 2 TO_DETERMINE WHICH 
ERROR IS TO bE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTS), 
REPORTS THE APPROPRIATE INFORMATION CONCERNING T THE ERROR. 
S A COPY OF ot alg SUBROUTINE FROM SYSM 


WITH O NOR 

FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET 

ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
IF THE CURRENT ERROR HAS THE S UMBER 


SECOND 
AS THE PREVIOUS ERROR THEN ONLY THE Bara ILL BE TYPED 
AND NOT THE ERROR MESSAGE AND HEADER. 


Sdbddebtddbd bidet ddddddsideldddettibbbbi titi et tite t tT t ttt to SSS 
is?? BINARY TO OCTAL (ASCII) AND TYPE 
RRRRKLE RARER ERLE EERE ER EERE EERE EER EEE A EERE REE RE EEE ERR EEE ES 


11880 THIS ROUTINE IS USED TO ee a A 16-BIT BINARY NUMBER TO A §-DIGIT 
OCTAL (ASCII) NUMBER_AND T 
oT: YPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


MOY NUM, (SP) ; NUMBER TO BE_ TYPED 
TYPOS 

| 

H 

j 

{ 


bts a FOR TYPEOU 
-BYTE N ;;N=l TO & FOR NUMBER OF DIGITS TC TYPE 
BYTE M 33 Ms1 OR : 


1=TYPE LEADING ZEROS 
:S DSSUPBRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
Ne OR $TYPOC 


MOV NUM, -( SP) ;;NUMBER TO BE TYPED 
TYPON ;;CALL FOR TYPEOUT 


EL oe aaren HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM, -( SP) ::NUMBER TO BE TYPED 
TYPOC :>:CALL FOR TYPEOUT 





HOS 
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RARAATARARARSAAEL RRA AKL A RAR AAR RAR RAL RAK ALK AK HLA RAKE ARE KALE REARS 
i1954 TRAP DECODE 
PHAAAARERAAAA AA REA AAA RAR ARAL AA KAA RAL R AA RAK LAA KALLA LARK EARL RELL RAE 


il9S7 = =THIS ROUTINE WILL tee os THE LOWER BYTE OF THE “TRAP’ INSTRUCTION 
AND _U TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
GO TO THAT ROUTINE. 


RARERELERERRAR ELLER RRR ERLE EERE RE REE RE RR RR ER EEE RRR EE EERE AREER RF 


11970 = TRAP 7 
MEPETETTTECTTTEritriitri Titi Titi iiitititiiitittttttt ttt ttett yy 


11972 THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THE “TRAP” INSTRUCTION. 


ee eee eee tte ett tet t ttt t ltt itt iti tt tit ttttttitttttttstt 
11892 POWER DOWN AND UP ROUTINES 
eerie ett tt ttt ttt ttt t ttt i tt ttt ttt ttt tite s ttt ittitititi et: 
LOD37 «—§«-— HHA AHR AK RRA KA KEKE RRA KERR EES 
ERROR AND MESSAGE TABLE CONDIMENTS . . 
eee testes sett titi titi ttt ttt tititt 
woe wee” Gan tee we Wa" ek ee 
49 ? e 


} 
| 178 8 0 3 1322 1505 159 1507 1510 1525 182 
LEERLFRERA LEER ELLER REE RARER ERLE L LEAS EERE ELE ARELERERERALEREREREEAE 
| 
| 
| 
| 





| ae eee = - 2 ee = ee 
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Tl Sn ERENCE EACH REGISTE 









T2 ARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
T3 eet FOR DRIVES NURER BND RIV USING RHAS AND RHCS2 
TY TYPE SERIAL NUMBE E TYPE 
TS K MOL TO pe 
INT: 
CK 





HANGE ERROR 
T15 CHECK ALL ADDRESS PLUG ADDRESSES 
DRIVE COMMAND TESTS## 
T16 NO_ OPERATION FUNCTION TEST 


11? DRIVE CLEAR 
Te0 rere eeet 












“uu 
Ww 
N“N 
Ns 





E T CY’ 
Te3 MAKE CURRENT CYLINDER 











Tey RECALIBRATE 7 COMMAND 

Tes MAKE CURRENT CYLINDER = 777 

T26 MAKE CURRENT CYLINDER = 377 ; 
te? RECALIBRATE COMMAND ¢ 
13 OFFSET AND RETURN TO CENTER LINE COMMAND . 





OF C 
RERO/WRT TE TESTS USING MEDIA 
T3 WRITE/ oar (O'S) AND DATA (0’S) 


AD DA 
135 WRITE/READ DAT (i & \eSeSe) 


r3 WRITE 
137 WRITE/READ DATA (O0Se5e5) 
THQ = WRITE/READ DATA USING UNIBUS B 








NAINOEC- 11-02 ZRII-A, RPOW/S/& FUNCT. CONT. TST-PT 1 
ZRJ TABLE OF CONTENTS 


ov 
OO Orguluie— 
mo 





T4l IMPLIED SEARCH 
THe . meee SEEK TO CYL O01 


EST 
ie SEEK & WRT TEST “* _0-10) 
SEEK & READ TEST (CYL = 009) 
KRITE CHECK DATA & WRITE PROTECT TESTS 
TYS WRITE CHECK HEADER AND DATA 
TY we CHECK DATA 


TY? WRITE CHECK DATA USING UNIBUS B 
TS9 WRITE PROTECT OPERHTION 

TS1 END OF DRIVE 

*#*SUBROUT INES## 


END OF PASS ROUTINE 

JAM CURRENT cVLTNOSR ROUTINE 

SCOPE HANDLER ROUTINE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TYPE ROUTINE 

TTY INPUT ROUTINE 

READ AN OCTAL , aie FROM THE TTY 


ERROR HANDLER 

ERROR MESSAGE TYPEQUT ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
TRA . DECODER 


TRAP TABLE 
POWER DOWN AND UP ROUTINES 


ooo 
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1 
. te Bt tO alias RPO4Y/S/& FUNCT. CONT. TST-PT 1 
4 i OIGITAL “taut PreNT pe 
e 5 eT ASS. 0.7 
4 HTprocran BY PETE BLACKSTONE 
3 tSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
9 ; HPACKAGE (MAINDEC-11-DZQAC-CO),MAR 21, 1976. 
12 rs 
gORNS ZENG ZRNG ZENS RNS RNS RNS RNS ZNSE ZENE RNG ZENS RNG ZENS SENS ZENE SENS ESS 
RNS RNS SRN ZENE ZING ZENG ZENG RNG ZENE SRN ZENS SENG ZENS ZENS ZENS SENS ZENE ZENS 
SPHENS SENG ZENG ZENG ZENS ZENS ZENS ZENS SENS JRNG ZENS SENS SENS ZENS ZENS ZENS JENS ENS 
;*DRIVE MUST BE LOCKED ON PORT A OR PORT B 
gt NRe NRE NRA NRA ENR ENR SNR ENR NRA SNR ENR ENR SNR ENR ENR SNES SNE ENE 
SENRA NRA ENR SNES ENR NRA ENR SNES ENR ENR ENR ENR ENR ENR ENRZ NRA NRS ENE 
SZ ENRA ENR ENR NBS SNR SNR SNR SNES ENR ENRZ NEA SNR ENR SNES INEZ SNR SNES NE 
s 
28 ;*INTERNAL PROGRAM MACROS BEGIN HERE 
3 5 RERAAEKKLALAS AERA AER AERA LE RE RRRAAE 
31 
32 5p RRRRERAAA ERE RR ERE EERE RELA LEAL ERE AER ERE RELL A EAA AL LER ER ELE RARE 
sk 
34 ; #*NOTE: ALL MACRO CALLS BEGINNING WITH “.$" ARE SUPPLIED FROM AN 
3 ;% EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
# * TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 
38 rir ititttiiitititiiititittttttittititititititi ttt ty 
#0 -SBTTL OPERATIONAL SWITCH SETTINGS 
4e SWITCH USE 
43 S$ 2 20 ewwewe Cee neecerresesses 
44 3% 15 HALT ON ro 
4S 3% 14 LOOP _ON TEST 
46 TT 13 INareT ERROR TYPEOUTS 
47 3# le RH70 CONTROLLER SELECT 
48 ;* 11 INHIBIT ITERATION S 
49 ;# 10 BELL ON ERROR 
50 3% 3 LOOP ON ERROR 
Si ;% 8 LOOP ON TEST IN SWR<?:0> 








.---- Oe 


DZRIIA.P11 OPERATIONAL SWITCH SETTINGS 
STOP FURTHER COMPARES IF SWO8 IS LOW 


MULT ADDR PLUG TEST iF swoe 1S LOW 


uw 

£ 

ae 
won) 


ee 


(ay 
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DZRIIA.P11 Basic DEFINITIONS 


.SBTTL BASIC DEFINITIONS 
-¥INITIAL ADDRESS OF THE STACK POINTER *%* 1000 x 
STACK= 1000 


EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


;XMISCELLANEOUS DEFINITIONS 

Ht= I ;;CODE FOR HORIZONTAL TAB 
::CODE FOR LINE F 

tICODE FOR CARRIAGE RETURN 

::CODE FOR CARRIAGE RETURN-LINE FEED 

:: PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 

;;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; ;HARDWARE SWITCH REGISTER 
DDISP= 177570 ; ;HARDWARE DISPLAY REGISTER 


-¥GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 :: GENERAL 


001000 


REGISTE! 


R7= “7 ; ; GENERAL 
-EQUIV R6,SP ;;STACK POINTER 
-EQUIV R7,PC ;;PROGRAM COUNTER 


PRO 


;#°SWITCH REGISTER” SWITCH DEFINITIONS 
WiS= 100000 


GOO VOM EO OD YOU £ wre en Io 


0b 0 bb 9 bs bs pe hp 


000020 








55 





oO 
hie 
ae 
a 
bet 
D 


+ bo ob 
WO™IM UIC Wt 





b— b-- b— — b— + 0 —- bb = 0 be ee 


= 
at thet to 





le? 














ct 1-DZRJI-A 
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BASIC NEFINITIONS 


000001 


100000 


000001 


000004 





SWO3= 10 

SWO2e= 4 

SWOl= 2 

SWOO= 1 

-EQUIV SWO9,SW9 


“EQUIV §wO0;Swo 
i #0ATA BIT DEFINITIONS (BITCO TO BITIS) 


Oo te ke 
eM ce 
oo0o000 

oOo 
Oo 
Oo 


O8= 400 


AHHH Aaa 


'* DDDDMMDMDMDMMDMMMMWMWo-:- 
44444 
oO 
G 
uw 
—_— 
oO 


Oh 4 ot 0 4 4h 0 tt te 


ooo 
WLUIOIOwO 


[2000 
AAA 
—MWCUIT NOW 






;*BASIC all TRAP VECTOR a 


ERRVEC= TIME OUT AND OTHER ERRORS 
RESVEC= to | RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 am 

RTVEC= 14 TRACE T 
aETy = 14 tt BREAK POINT TRAP (BPT 
IOTVEC= 20 ¢INPUT/OUTPUT TRAP (OT) **SCOPEx# 
PWRVEC= 24 ‘POWER FAIL 
EMTVEC= 30 i EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 RAP 


“T 
TKVEC= 60 tery KEYBOARD VECTOR 
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mee st§‘5ii i pasrc Ree En rian 


185 SCOSE4 TEVeC= $4 7; TTY PRINTER VECTOR 
a) ears |e PIRIVEC=S240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


t—-— --- —— . eee ee ee oe ee 
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DIRIIA.PLL TRAP CATCHER 
188 .SBTTL TRAP CATCHER 
1) 700: ‘ 
tS] veer oP, UNUSED IONS FR ONTAIN A ",.42,HALT™ 
{+4 SRSPGUENCE Go" RAPCA TCLECAL traps Bus INTERRUPTS.” 
73 a :#LOCATION 9 CONTAINS GTO CATCH IMPROPERLY LOADED VECTORS 
é é = 
175 900174 09 DISPREG:".WORD 0 :;SOFTWARE DISPLAY REGISTER 
176 00017 SWREG:  :WORD 0 :;SOFTWARE SWITCH REGISTER 
if .SBTTL ACTL1 HOOKS 
if £ y SRSRAARELELSRELAASLSLAAAREFSSSSLESLESSASSSFESASESSSSAILSLALLAASE 
18] HOOKS REQUIRED BY ACTLI 
182 SvPCs. ;SAVE PC 
184 900046 sENBA0 ;:L)SET LOC.46 TO ADDRESS OF SENORD IN .$E0° 
186 ooc0s2 "WORD 2000 ::2)SET LOC.S2 TO 2000 
ie . =$SVPC 7; RESTORE PC 
183 .SBTTL STARTING ADDRESSES 
13: 20 See ) ‘ 
13 coe0o fesia? oosoie ine SaBEGIN ;NORMAL START \i 
¢#3 co0e10 COu776 a JeBEGINE :JUMP TO SELECT DRIVE START ; 
3 o0c220 900137 oo47s2 5 JeBEGINI ;JUMP TO NO OPERATOR TESTS START 
te 


TEATS AIL TEST BLY DRIVES ON THE SYSTEM A SINGLE DRIVE AT A TIME 


* ° 

; OSTARTING ACORESS 210 WILL TEST,ONLY ONE SPECIFIED ORIVE 

:#STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 
:#AT THE DRIVE 


Cutiebahis: 


fturuorortururu 


ee ee eo re ee 
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= 
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-SBTTL MEMORY MANAGEMENT DEFINITIONS 


:*KT11 VECTOR ADDRESS 


Ob + 0 + 0 = 0-3 bo oo o> 
IU £GItue- 


wrurururunoturuturstuTr 


store 


furururfu 


RO 


mT! 
™ 


i 


rb tt ted 


tJ 
“ 


fururu frururururururururufur 
eSB 
OO 


i 
LGM 


;#KT11 STATUS REGISTER ADDRESSES 


;#KERNEL “I" PAGE DESCRIPTOR REGISTERS 


5 FSRSAAELEERAELAALAPESLALAAFRARERASASELAALAAPEAARAALERALARLFAAAERLE 


ee ee ee 
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DIRIIA.P1L COMMON TAGS 





-SBTTL COMMON TAGS 


4 5 RRAERRREREREER EERE ERERS EEE E ELE EEREEESSEA SEALERS SS REESE EERE ESS 
24 Hye S Trays CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;* IN THE PROGRAM. 






901100 1100 
SCMTAG: ;;START OF COMMON 
Sey on. sees. Be 8 SE ONTRING THE TEST NUMBER 
55 Serr G: BYTE 5 HeOuTains ERROR 
CNT: :WORD :: CONTA EST ITERATION COUNT 
257 PADR: .WORD 0 :: CONTAINS OPE LOOP ADDRES 
358 sup RR: - WORD : : CONTAINS RETURN FOR ERRORS 
RTTL: .W ::CONTAINS TOTAL ERRORS CTED 
250 ITEMB: eve 0 ;;CONTAINS ITEM CONT 
261 SERMAX: .BYT 1 ;;CONTAINS MAX. ST 
BE SERRPC: - WORD 0 Baas PC OF LAST ca, eo 
Se seoren : i CONTA Ne oi abrEss 9 ora oe ed 
266 SE0DAT: “WORD 9 uae “Be "BRO _DA 
26; “WORD : RESERVED--NOT TO Be USED 
ze TOB: .BYT : ; sAUTONAT C MODE INDICATOR 
2 SINTAG: .8YT !: INTERRUPT MODE INDICATOR 
274 
275 
= 
A 
230 


SFENSSINSE SO SUYRKREKCFEASRARZHSSKPNGSH cor 2owoS 





2-0 0— b= & = b-< 9 -— b= 9-—- b = 8 bo > b— b-- 1 & = b— 0 bb = 6 0 Bb 0 = 0 0 = 0 0 8 0 = 9 0 9 = 2 pe 





WORD OQ 
SWR: -WORD OSWR i ; ADDRESS OF SWITCH REGISTER 
CISPLAY: .WORD ODISP OF DISPLAY REGISTER 
$TKS: 177560 ; rETTy KBD STATUS 
$TKB: 177562 Y KBO BUFFER 
$TPS: 177564 : HiITY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 ; TTY PRINTER BUFFER REG. opre > 
$NULL: eve 0  CONTAT CHARACTER FOR a 
SFILLS: .8YT 2 3s FONTAL t FI LLEn ror as: a 
SFILLC: .BYT +3 SET pJuy CHARS. att fos ch 
281 STPFLG: .BYT 3; TERMINAL AVAIL eo PERG” (8 7» CEE ES) 
282 SREGAD: .WORD 0 3 CONTAINS THE ADORESS FROM 
283 3 HAIGH ASAE ED? WAS aay Ne 
284 $REGO: .WORD OQ ;;CONTAINS (( 
ees SREG1: .WORD 0 3 CONTAINS ((SREGAD) #2) 
2 $REGe: .WORD Q ;;CONTAINS (($REGAD) +4) 
28 $REG3: .WORD Q ;:CONTAINS (($REGAD)+6) 
288 SREG4: . 3s KONTARND c cares) 
cof SREGS: .WOR ;;CONTA (( )+l2) 
STMPO: . ;;USER DEFINED 
291 STMP1: .WORD 0 ;;USER DEFINED 
eSe $TMPe: .WORD OQ ;;USER DEFINED 
233 $TMP3: .WORD Q ;;USER DEFINED 
234 TMPY: .WORD Q ;;USER DEFINED 
es S: .WOR 0 ;;USER DEFINED 
2% O0l2le STIMES: O ;;MAX. NUMBER OF ITERATIONS 
e397 001214 SESCAPE:O eee enor ADDRESS 
e368 lClelé LL: .ASCIZ <@07><377><377> 3;;CODE FOR BEL 





Cel ~DIRII =A, RPCY. . “6 FUNCT. 
il COMMON TAS 
Qvizee or? 


ed 015 
50: 354 009012 


me re ee ee ee er ee | 0 eee ee ae 


CONT. 


FO6 
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$GUES: .ASCIT /?/ OE TAGE MORK 
sLFe, -ASCIT “>> ARRIAGE RETURN 


$ 
CMe: TAR ictal 0 nabs cotta 


SES C069 


eee ee ee ee eee ee a nena ee ee 


es we rn nr ee ce ee 
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DERIIA.F Li ERROR POINTER TABLE : 4 0070 


33 -SBTTL ERROR POINTER TABLE 
;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


afte fon ITE, t i15 RUPGER THOToRtES “eatcH Tren TN. THe Teale 1S PERTINENT. 
ENOTES 


Peirtetetatats 


3 ITEM so THE ONL DATA IS 
3 bot ITEM if ME TABLE TCD AINE M POINTERS EXPLAINED AS FOLLOWS: 
ce :# g POINTS TO T MESSAGE 
i :% STPOINTS TO T DATA HEADER 
13 :* OT ::POINTS TO T 
3 2% OF ::PSINTS TO THE BATA FORMAT 
3! 
ch 20122 SERRTS 
315 
320 
1 
> 
$55 #1 TEMI 
354 001226 959579 EMI :RPOY DID NOT INTERRUPT 
325 :WAITED ON BIT DID NOT OCCUR 
336 201230 ob6s42 DH! :PC 
327 WAT PC 
328 BIT WAITED 
3 fe 3. 
=REG CONTENTS 
$35 oor: 117 T! SERRE MRLTPC MATTET, WAITRE, SSODAT, CS! 
* i aet - ig 
RGR BHR i Eros 
335 : #ITEM2 
336 00123 oS0617 EM2 sINT RRUPT ENABLE BIT DOWN BUT : ‘ 
33 . *WAITED ON BIT DIO NOT OCCU : (" 
238 901240 O66é4e DH ; iF ' vy 
$33 T T We T 
| ‘Bit ADDRESS 
343 REG CONTENTS 
au pt ay 
oo1242 971170 OTL C oar tre, Suarter, WAITRE, $80DAT.¢S! 
| 345 O01244 071476 OF 1 0, 0,0.4,0,0 
34E 
347 s#I TEMS 
Ea 901246 oS0706 EM3 :RPOY DID NOT INTERRUPT WHEN 
| g :WAITED ON BIT DID SET 
350 O01250 obes4e DHL :PC 
ay WAT PC 
| 365 :BIT WAITED 
| 353 REG ADDRESS 
| 3 5 117 1! Featecyua tre unre, WAITRE, $8DDA7, cS! 
i f vst 
35é PRtsES Botace at Tons 9,0.6,0.0 
i 





ts 
‘Bes 
Se 


324 


a i a as 


JIG) 
ae 


wu 
rh 


991262 
051264 


001266 
001270 


O0127e 
001274 


001276 


371210 
071505 


951190 
067162 


071244 
07152! 
05124C 
067400 
071256 
071525 


051322 
067440 


“& FUNCT, CONT. TST-PT i 
TER TABLE 


s eI TEM4 
EM4 


DTé 
OFE 


;*I TEM? 
EM? 


DH? 


DT? 
DF7 


; *ITEMIO 


EM10 
DH10 


MACY11 27(655) 





SEQ C071 
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HATED ON BIT p D SET BUT 
I VEN IN 10 MICRO SEC. 


a 
5S 


C 
[rene AS SS ENS, SOE ea 


RHAS DOES NOT CLEAR By 
EHOVING IN ALL ONES 


:REG. ADDR. , 
:GO00 DATA : 
tRECEIVED DATA 
; i SERREC jREGADR, SGDDAT, SE00AT — 


;LOADING RHER1 FOR A 
Sheets DID NOT SET ANY BITS 
;IN RHAS-NO UNITS PRESENT 


irc ADOR 
SRECETVED DAT 
i SERRPC, ERESADR, SBDDAT 


; SPECIFIED REGISTER NONEXISTANT - 
199 ABORT PROGRAM 


ADDR. OF REG. 
; SERRPC, » TEMP! 


Q 9 


s STORED DRIVE HAS MOL BIT 
;IN RHDS] = 1 
; TEST NO 
“FAILING REG ADDR 
; CONTENTS OF RHCS1 
T OF RHCS 


RHER! 
tSERRPC, STSTNM, SBOADR, CS! ,CS2, 051, ER! 
:0,0,0,0,0,0,0° L 
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464 601364 O71514 OFS :0,0,0,0 


MAINDEC-11-DZRJI-A, RPOY 
DZRIIA.PLI ERROR POINTER TABLE 
411 
ai$ 001326 051371 saat :MITH_SPINOL 0 DOWN 
414 UAT Niroe i, eve Oh 
afs R HIGH 
418 001320 os744o DH10 
4] if ST NO 
418 ‘FAILING REG. ADR 
419 : CONTENT RHC 
420 : CONT 
42) :CONTENTS OF RHOSI 
432 :CONTENTS OF RHERI 
423 901332 97 1266 OT10 ; SERRBC STSTNM, SBOADR,CS1,CS2,0S1,ER! 
4e3 1334 671530 DF1O :0,0,0,0,0,0,0 
426 ;*ITEML2 
427 001336 051476 EMI2 :AFTER A POWER UP 
42g !NO_ PACK ACKHGMLEDGE “Conmano 
429 ?RHDS1 SHOULD HAVE MOL=1, Vv=0 
4390 901340 087440 DH10 : 
431 TEST NO 
432 :FAILING REGISTER ADDR. 
433 :CONTENTS OF RHCS1 
435 :CONTENTS OF RHCS2 
435 :CONTETNS OF RHDS1 
436 i :CONTENTS OF RHERI $ 
437 001342 O71266 OT10 : SERRPC, STSTNM, SBDADR, CS1,CS2,0S1,ER1 
438 COlsHH O7iss0 OF 10 ;0,0,0,0,0,0,0 : i 
440 : #1 TEM13 | 
441 001346 9oS1604 EM13 ;AFTER A POWER UP WITHOUT 
442 sANY INIT RHCS1 SHOULD 
443 ay 4, ROY=1 
ayy ites 5 DISREGARD 
55 sALL OTHER BITS 
446 001350 9067440 DH10 PC 
44? TEST NO 
448 FAILING REGISTER ADDR. 
449 ; :CONTENTS OF RHCS1 
450 CONTENTS 
45! :CONTENTS OF RHDS1 
us> :CONTENTS OF RHERI re 
453 901352 071266 DT10 :SERRPC, STSTNM, SBDADR, CS1,CS2,0S1, ER! 
434 001354 971539 OF 10 :0,0,0,0,0,0,0 
46 ;*ITEM1Y 
457 001356 051726 EM14 ;AFTER POWER UP RHCC 
45g *SHOULD BE=0 
459 001360 O67162 DHS :PC 
| = 4EO REG. ADDR. 
| 461 :G00D DATA 
462 _ RECEIVED DATA 
| 463 001362 071230 OTS : SERRPC, REGADR, SGDDAT , SBDDAT 
{ 
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OZRIIA.PLI ERROR POINTER TABLE 







46 ; eI TEMIS 
ah 001366 052001 EMIS RN ERROR nee CAUSED 











469 :G00D DATA IS BEFORE COMMAND 
470 “RECEIVED DATA IS AFTER COMMAND 
471 901370 067162 DHS :PC 

472 ;REG. ADDR. 

47 GOOD DATA 

44 RECEIVED DATA 

















475 001372 071230 OTS ; SERRPC, REGADR, SGDDAT, SBDDAT 
Hee 001374 371514 OFS _ 30,0,0,0 

478 ; HI TEMIG 

479 001376 oS2142 EM16 ;GIVING A NO-OP COMMAND CAUSED 
490 ;AN ERROR 

481 ;G00D_DATA GIVES REGISTER 

482 ; ;CONTENTS BEFORE COMMAND 

483 SRECEIVED DATA GIVES REGISTER 
484 ;CONTENTS AFTER COMMAND 

485 O01400 067162 DHS 

486 :REG. DOR. 

487 DATA 

4g {RECEIVED DAT 









489 001402 071230 : DTS : SERRPC REGADR, $GDDAT , SBDDAT 
430 001404 O71514 OFS :0,0,0,0 
4 
492 :*ITEM17 
493 001406 052270 EM17 ;DRIVE CLEAR COMMAND 
44 :CAUSED AN ERROR 
49s :GO0D DATA GIVES WHAT SHOULD 
496 ‘BE THERE 














497 ;RECEIVED DATA GIVES WHAT WAS 
498 THERE AFTER COMMAND 

499 O01410 967162 DHS ‘pc 

590 sREG. ADDR 

501 60D DATA 

502 i RECEIVED DAT 

503 o01412 071230 OTS : SERRPC REGADR, $GDDAT, SBDDAT 

04 0014:4 071514 OFS :0,0,0,0 

506 ; I TEM20 

507 OO141E oS2425 EM20 sREAD-IN COMMAND GAVE AN ERROR 

509 GOOD DATA HAS WHAT SHOULD BE THERE 

509 RECEIVED DATA HAS WHAT WAS 

510 AFTER COMMAND 

Sil OO1420 O671b2 DHS sPC | 
512 REG. ADOR. 

513 :G00D DATA 

5i4 RECEIVED DAT : 

Eis oo14ee 071230 OTs : SERRPC Re BADR. $GDDAT , $2DDAT 

Eig 001424 971514 OFS :0,0,0,0 

518 











-D 


5 
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ERROR POINTER TABLE 


oO 
hae 
Pha 
Sm 
~~ 
D 
e © 
wi 
| eee aad 






;*ITEM 21 
243 001426 052571 EM21 pa CONTENTS DURING 
Sel COMMAND WAS IN ERROR 
ass 001430 67166 DHS 
3 O0143e 1230 DTS 
esd 001434 071514 DFS 
Seb ;*ITEM 22 
Se? 001436 052644 EM2e ;RHOS1 CONTENTS DURING 
S238 COMM ANS WAS IN ERROR 
S23 oOO1440 067162 DHS 
530 001442 371230 DTS 
ae 001444 071514 DFS 
533 ;*ITEM 23 
S34 OO1446 052717 EM23 ;UNLOAD COMMAND GAVE AN ERROR 
a 36000 DATA GIVES WHAT SHOULD 
537 RECEIVED DATA GIVES WHAT WAS 
$38 : THERE AFTER COMMAND 






543 : 

S44 001456 053062 EM24 ; OFFSET Coren CAUSED AN ERROR 
S4s -GOOD DATA IS WHAT SHOULD BE THERE 
546 ‘RECEIVED DATA GIVES WHAT WAS THERE 
S47 :AFTER AN OFFSET COMMAND 







001464 071514 DFS 






550 

551 

5Se ;*ITEM 25 

SS3 OO1466 053225 EMeS ;RETURN TO CENTER LINE COMMAND 
Ss4 ;CAUSED AN 

BeP ; $000 DATA GIVES WHAT SHOULD BE 










567 RECEIVED DATA GIVES KHAT WAS 
558 ;THERE AFTER COMMAND 

559 001470 96716 DHS 

560 001472 0712 O75 

Bb1 01474" 071514 DFS 

563 ;#ITEM 26 

564 001476 053407 EM26 ;500 OFFSETS CAUSED AN ERROR 
S65 OD1S00 067617 DH2& :P 






:CONT. OF RHCS1 
: OF RHCS2 





S7e 001502 071306 * SERRPC, CS1,CS2,051,ER1,ER2,ER3 














MAINDEC=11-DZRJI-A, RPO4W/S/6 FUNCT. CONT. TST-PT 1 
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s*ITEM 30 
587 001516 053715 EM30 


88 
ees 001520 070016 DH30 






001522 971330 0T30 
S594 001524 071547 DF 30 
So ;*ITEM 31 
S97 001526 053775 EM31 


605 

O6 

£07 ;*ITEM 32 
608 001536 OS4ele EM32 
611 001540 070016 DH30 
Ble O01S42 071330 0130 
613 071547 30 
614 

615 ;*#ITEM 33 
pis OO1S46 OS43e21 EM33 
618 

619 





001552 

001554 O71514 OFS 

;*ITEM 34 
EM3 





O01SS6 O54S23 





MACY11 27(655) 


$73 001804 071537 DF 26 


575 ;*ITEM 27 
258 001506 053477 EM27 
$78 

i 

S82 90151C 067162 DHS 
S83 001Sie 071230 OTS 
58s 001514 971514 DFS 


30-MAR-76 22:59 PAGE 1S SEQ 0075 






;0,0,0,0,0,0,0 


HEBUSED THPROPER REGISTER CHANGE 


;GO0D DATA GIVES 


ECEIVE lie rves, WHAT 


:WAS THERE AFTER COMMAND 













;WRITE HEADER AND DATA 
CHANGED WRITE FROM BUFFER 





TA 
 SERRPC ERWORD, SGDDAT , SBDDAT 
:0,0,0,0 







;READ HEADER AND DATA CAUSED 
IMPROPER REGISTER CHANGE 
; GOOD alle HAS WHAT SHOULD 


SRC VED DATA GIVES WHAT 
WAS THERE AFTER COMMAND 








;WRITE HEADER at DATA POL OMED 
YA R AND DATA 
: CAUSED A READ/WRITE ERROR 





CHAN DATA CAUSED IMPROPER REGISTER 


;GO0D DATA GIVES WHAT SHOULD BE THERE 
sRECEIVED DATA GIVES WHAT WAS THERE AFTER 





; 










;READ DATA INCORRECT 














“DZRJI-A, RPOW/S’6 FUNCT. CONT. TST-PT 1 


MACY11 27(655S) 
“oe POINTER TABLI 


ee ee oe 
N@MUIE WT 
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;ATTEMPTING TO WRITE WITH WRITE 
LOCKED OUT CAUSED IMPROPER 
sREGIST ER CHANGE 

56000 DATA GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
:THERE AFTER ATTEMPT 




















;WR Ue. WITH ohh ® eal 











ik LOCK WAS ATTEMPTED 











;ENABLING WRI re BY mite LOCK 
;BUTTON CAUSED A 
; GOOD DATA GIVES AWRY SHOULD 


: RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER WRITE LOCK 
; BUTTON ENABLED WRITES 












; TRANSEERRING ON LAST BLOCK IE. CYLINDER 
10, SECTOR RACK I 

cause TMPROBER REGISTER 

e00D DATA GIVES WHAT SHOULD 


HER 
RECEIVED DATA GIVES WHAT WAS 
;THERE AFTER TRANSFER 












07 


FUNCT. CONT. TST-°T J MACY11 27(655) 3O-MAR-76 22:59 PAGE 18 SE3 9078 


C-13-D2RI2-A 
ne} a1} “ERROR | S BCINTER Fable 
79S O0187 287355 EMMS 
i ue ie: ie [oee, na 
re: ;SECTOR ei, TR IN 
“ 1700 O700! 
o45 re ote p35 
i704 571543 5°30 
90:70 oS747D Emu? TRANSFERRING FROM NONEXISTANT 


iSECTOR. CAUSED IMPROPE! 
By, TA GIVES WHAT SHOULD 


CEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED 
; TRANSFER 


rie Giese rs 

71% O71514 OF 

:#ITEN 50 
MSO 


Tee ING FROM NONEXISTAN 
:SECTOR enue DATA ERROR 


REA RTL wer wc 


ER AFTER TRANSFER 


COi7i6 §=OSTrSe 


3 


pu30 
gk bras 


FE EoPoe Bona RAN cs dh See aaa 


amore 
. 
| 883 
SG 
Tes 


re OC172 260171 saclestniy SIVING ILLEGAL F CAUSED 
é jad wows! : 
a5 Yrewcres REGIST ER GHROE 
rr | :G0 DATA GIVES WHAT 
ae 0 DATA GIVES REGISTER 
773 sCONTENTS AFTER ILLEGAL FUNCTION 
774 001730 970132 DHS! :PC 
oe REG Bar 
777 :RECEIVED DATA 
778 7 ‘ ILLEGAL FUNCTION 
901732 O71344 DTS! : SERRPC. REGADR, $GDDAT, SSDDAT, ILLESL 
780 B0i735 Orisse OFS] :0,0,0,6,0 
785 
78 *#I TEM 53 
784 OO1726 S&D43¢ ;WRITE DATA ON NONEXISTANT 
785 : SECTOR SED INPR OPER 
? é :REGISTE 
? : G00 peta’ Bits WHAT SHOULD 





rn? 









Co11-DIRI1 FUNCT, CONT. TST-PT 
SSE GLL ha ite Le OM TT 


Bie fies bf 
174 71230 T 
1744 71514 


;#ITEM 53 
E} 





ees teeeeRS | 
BEE 
ahytut 
9 
bbe 
Oo 





19 

Bi 00176 7162 ors 
4 >Y, ey; 120 T 
BE Bises 71519 OF 
sis s#ITEM SS 
S15 OO17EE Ob12Me EMSS 
Eig 

815 

Bs? 

ee 

82 1778 71 4S 
ze~ Bairre l2 TS 
825 1774 O71514 DFS 
BE s#ITEM SE 
S28 OC177E O61534 





fo 
wo 





Res 





wits) 


;*#ITEM $7 
EMS7 


+ 4 4 


coococococucD 
fue-O 


Seareinduithiotiinianienennet cient 


MACYI) 27(655) 
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;RECEIVED DATA GIVES WHA 


seo THERE AFTER ATTEMPTED 


;READ HEADER BN DATA AFTER 
tA SEARCH CAUSED AN ERROR 


sATTEMPTED OPERATION WITH 

; INVALID 2 CAUSE 

‘ine GISTER CHANGE 
DATA GIVES WHAT SHOULD 


see ete DATA GIVES WHAT WAS: 
THERE AFTER OPERATION 


: READING WITH EXPECTED 
: OVERFLOW ERROR CAUSED 
; IMPROPER REGISTER CHANGE 


7 
~ 
ad 

w 

w 


DATA GIVES WHAT SHOULD 


I DATA GIVES WHAT 
THERE AFTER OPERATION 


ITH AN EXPECTED 
RFLOW ERROR IS 


+ m= 


RO 
cid A. 1 TO 266 SHOULD 
;NOT QUE TO RERO 


;AT aft. pare ¢ ee 
WITH WRON T SIT CAUSED 
; IMPROPER REGISTER CHANGE 

















F Se CONT. TST-PT 1} MACY11 27(655) 30-MAR-76 22:59 PAGE 20 








gree DATA GIVES WHAT SHOULD SE 


sREC IVED DATA GIVES WHAT WAS 
; THE aren ATTEMPTED DATA 






:#ITEM 60 
OG2Cié 62236 EM&O i ATTEMPTING TO Nas nae 


AN OPERA AUSED 
R ReCTSTE C 





TA GIVES WHAT SHOULD 
REC CEI DATA ¢ Ives WHAT WAS 
: THERE RATION 








S22 Be tabs DT&9 ; EGA "§co0AT, $80DAT, SEDRDR 


Besos beoaee oe et sDEVICE NOT AVAILBLE SEFORE COMMAND WAS TO BE GIVE 













: TEST NO. 
902932 971490 DTS! mack SPbe StSTNN PCISR, SBDADR 
062034 9571570 OF61 BOO. 
;#ITEM 8 
902936 962730 eNbg ;RHOS! HAS STATUS BITS STUCK AT ONE 
, : TEST NO. 
OF JSR 
Bes 2042 971412 oTb2 sRues SIS TNT PC ISR, S8DADR 
S Besos arieea OF ES '0-0,0,0 ee 
888 ; #1 TEM 6 
889 on2046 06301! M63 sRHDS1 CONTENTS DURING 
B30 :COMMAND WAS IN ERROR 
Beebe des Bf 


cocococo 
PRES 


s#ITEM 64 


eee --- > ee ee ee 












DIRIIA.PLL 
OC20S6 


BRIE SES 


OOWO0OO0ON0OUOW 
> -- b&b +b p< p< B-< & -2 Ho 


802109 


LES ER RE SREP no ren ee ya 


0636S 


373737 


071440 
071605 


063520 


070016 
071330 
071547 


064010 


;#ITEMTO 
E 





MAINDEC-11-DZRII-A, RPO4’S 6 FUNCT. CONT. TST-PT 1 
“ERROR POINTER TABLE 


EM64 


1-4 
ut 


; *I TEMES 


; SI TEMES 


DHEE 


DH 
DT30 
DF 30 


M70 


MACYIi 27¢655) 


:T K 
:BITS 4,5,6,7,8 
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ITRPROPER REGISTER STER CHANGE 


¢ DATA GIVES WHAT SHOUL 
Bien DATA GIVES WHAT WAS THESE 
AFTER COMMAND 









: INTERRUPT FAILING 


: TEST NO 
:CONTENTS OF RHCS! 
: CONTENT 4 Ms S 

: CONTENT $ OF HDS1 

: SERRPC StH CS1,AS,0S1 
:9,0,0,0,0 





;HEADER AND DATA COMMAND 
;FOR HEAD SELECTION TEST 


WHAT TRACK 
Ne WRITTEN ON CYLINDER 9 


ee RReC DST, ERI, ER2,ER3,CS1,CS2 
:0,0,0,0,0,0,0 


;READ HEADER AND DATA ERROR 
IN HEAD SELECTION TEST 
FIRS FOUR WORDS Give HEADER 


‘S600 DATA WORDS eive 


;READ HEADER AND DATA ERROR 
:IN DIFFERENCE LINE TEST 
WORD NOS. 1-4 GIVE 












Boise orisee 
002124 


Boieas 


OOzizé 64215 


SS RREEREESENIES 5 


bs bat 

-O.0 
Oo 
“J 
- 
fu 
3 


002132 
002134 971514 
973 002136 064761 


$79 992140 067162 
980 002142 071230 
$81 002144 071514 


984 O62146 064707 
902150 o70016 
0021 071330 
ges 902154 971547 


931 002156 Ob47E1 


1002 002166 Od652e5 


MAINDEC-L1-DZRJI-A, RPO4/S & FUNCT. CONT. TST-PT 
DIRIIA.PLL ERROR POINTER TABLE 


;#ITEM 71 


ITEM 74 


; ITEM 75 


MACY11 27(655) 
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; HEADER 

EERE Ros. 5-260 GIVE DATA 
;WHICH IS THE CYLINDER 
;RDDRESS 


sFORCING OPI CAUSED IMPROPER REGISTER 
: GOOD DATA GIVES WHAT SHOULD 
HERE 


;RECEIVED DATA GIVES WHAT WAS 
j INERE AFTER 3 INDEX PULSES 


:G00D DATA 
s RECEIVED DAT 
: SERRPC REBADR, $GODAT , SBDDAT 

:0,0,0,0 


;WHILE USING UNIBUS B 
: READ DATA CAUSED IMPROPER REGISTER 


00 DATA GIVES WHAT SHOULD BE THERE ‘ 
: RECEIVED DATA GIVES WHAT WAS THERE AFTER 


SWHILE USING UNISUS 8 
:READ DATA INCORRECT 


; WHILE USING UNIBUS B 


G 
;GO00D0 DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES REGISTER 
:CONTENTS AFTER WRITE DATA 


;WHILE USING UNIBUS B 
;WRITE DATA COMMAND CHANGED 
;WRITE FROM BUFFER 











az 
t=: 
25 
vo 
el ad 
~o- 


> 20 +09 <0 —--9-- 


QOOQO0ROoO 
0 0 = 0 b> & +0 oe pe 


NOU £ UITUe 


O0ee32 
002234 


BURBS SLSR GL Soe SPO ME COOP oie 
5 
8 


00223 
ob22e46 


mun 
£ 


> +6 6 0-0 <b = b+ » = b— 0 b+ 8 = b= & + 8-2 8 8-2 8 8 + 8 0 = = 0 0 =< 0 B= 0 0 FF Bb = & 2 2 8-2 Bh oh 
Beir 
NO 


mow 


071306 
071537 


066154 
067617 


;#ITEM 100 


;*#ITEM 102 
E 


“& FUNCT, CONT. TST-PT 1 
INTER TABLE 


DH39 
0730 
OF 30 


; SI TEM on 


ae 


OFS 


;#ITEM 101 


EMi01 
DHe& 


DTe6 
OF 26 


mide 
Deb 


MACY11 27(655) 
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;WHILE USING ae ie 
;WRITE CHECK CAUSED 


ISTE - ‘ 
Ce, ath 





_— CYLINDER DOES NOT REFLECT DESIRED ‘RHCC’ 
JSR 
ee ADDRESS 


:BAD®DATA 
: S$ERRPC PEISR, , REGADR , SGDDAT , SBODAT 
:0,0,0,0 

sERROR AFTER ADDRESS PLUG CHANGE 
:REG 5 R ADDRESS 


+ RECEIVED DATA 
8 oe . SGDDAT , SBODAT 


OFFLINE WHEN ADDR 


S 
cs 


we 


,0S1,ER2,ER3 


S 
onl 
4 
rayh 


BBQ Be 
zz 


T COME BACK ONLINE WHEN 
WAS REPLACED 


| hd 





HO? 


MACYI1 27(655) 
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TER TABLE 


POIN 


OR 


ERR 


C=11-D2RJI-A, RPOW/S’6 FUNCT. CONT. TST-PT 1 


MAT i 
cRIIA.P 


0. 





2>,0S1,ER2,ER3 


iG 


RHER 
CS1 
0, 


b 
sREGISTER CONTENTS INCORRECT SEFORE 4 


;OIAGNOSTIC SEEK 


T OF RHER2 
"4 
;0,0,0, 


DT26 


DF eb 
; *I TEM 103 


EM103 


DH26 


067617 


au 


Sri SAS SSS TTT 


Se Dee Tete Ree Date Reem Doe Rae Toren Neen Nee Ree Rete Roe Roe he Rook Feet Don oon oe ee on ee foe oe oe oe 


2,051, €R2,£R9 


0 


RHER 


DT26 
;#ITEM 104 


ONTENTS INCORRECT AFTER A 


¢ 
Ic 


GI 


eH CR OM CH ee Seem ee oe 


EM104 


C0zeS& 066317 


~™ 
ma - 


beetegcs 


SEEK 


STER 
T 


IAGNOS 


002260 067617 


$1,ER2,ER3 


c 


Cc 


OT26 
OF ee 


071306 


CO2264 971537 


O92262 


 t.0e-- 
mara 
Onmnogd 








i 
i 
' 
| 
! 











~ 
© 


Begagaeas 


rahe 


+0 +0 -0— > +0 0-6 2 - bb 0+ = 8 = 6 = = 0 8 = 9 0 0-2 8 8 2 b= 2 9 B= b= bb 9 9-2 a pe pe ho 


0+ 0 0-2 0-2 0-2 Bb 2 8-2 0+ 2 0 = b= B= B= be 02 0 bs he bo Bo Bo Be 82 2 
Bs VEU Eton -co.00 dou E torur- DD GR lotr. 


DIRJIA.Pil 
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5 SHRALERAALA RELA SLLLLASLSLALAASAALLAL AREAL SEALE ASA LAER FRELS SSSR 


RHI REGISTERS 
; RRESREREE REE EEE EELS ELLER REESE EE EEE EER EE SEES RELALEE REESE SEE EERE 





RPVEC: 254 ;RPOY VECTOR ADDRESS 
; #WORD SOYNT we tele (RHWC) 
;#EACH TS CALLED SY BIT NUMBER 










;*BUS ADDRESS R 
;*#EACH BIT 15 ¢ 


ISTER (RHBA) 
LED BY BIT NUMBER 


2a 


;#CONTROL AND STATUS REGISTER 2 (RHCS2) 


USi= i s;UNIT SELECT (BIT #0) 
USe= Fr :UNIT SELECT ait #1) 

= 4 sUNIT SELECT (BIT #2) 
Al= 19 ;BUS SS INCREMENT INHIBIT (BIT #3) 
UNIB= 20 ;UNIBUS B DC LO (BIT #4) 
F Pe By CLEAR (BIT #5) 

= 1 ; INPUT Y (BIT #6) 

= 200 ;OUTPUT READY (BIT #7) 

= 490 sMASS BUS PARITY ERROR (BIT #9) 
MxF = 1000 sMISSED T ER ERROR (SIT #9) 
PGE= 2900 ; PROGRAM ERROR BIT “1 
NEM= 4009 sNON EXISTANT (BIT #11) 
NED= 19000 ;NON EXISTANT DRIVE (BIT sie) 
UPE= cone :UNIBUS PARITY ae (BIT #13) 
WCE= 40 ‘WRITE CHECK ERROR (BIT #14) 
DLT= 100000 :DATA LATE (BIT #15) 


;#DATA BUFFER REGISTER (8HDB) 
:#EACH BIT IS CALLED SY BIT NUMBER 







MAINDEC=11-DZRJI-A, RPOY/S/ FUNCT. CONT. TST-PT 1 © MACYI1 27(655) 30-NAR-7& 22:59 PAGE 26 SEQ 0086 
DZRJIA.P11 = ERROR POINTER TABLE 





5p RERRAARAEAARARAE RARE EE RL ELE RRA AA EAE RA AEA RAL AAA TAA FLAARAFRALLALELLE 





1 : 
i} :#RPOY REGISTERS 

iis fy RRARRRAAAASEA LASALLE LALA LARAAA LAL ARAL ALAS SALA LELEL STRELA A ALELE FS 
ll 

i3e 

a 

it ? ;*CONTROL AND STATUS 1 REGISTER. (#00) 

ll 000001 GO= 1 ;G0 (BIT #0) 

1140 900100 IE= 100 ; INTERRUPT ENABLE (BIT #6) 

tal po9200 ROY= 200 :READY (BIT #7) 

114 00 Algé= 409 *HIGH ORDER UNIBUS BITS (BIT #9) 
1143 001 Al7= 1999 HIGH QRDER UNIBUS BITS (BIT #9) 
1144 PSEL= ‘PORT SELECT (BIT #10) 

1145 004000 DvA=s 4000 :DEVICE AVAILABLE (BIT #11) 

i146 MCPE= 20000 :MASSBUSS PARITY ERROR (BIT #13) 
114 040000 TRE= 40000 : ER ERROR (BIT #14) 

1148 100000 SC= 100000 :SPECIAL CONDITION (BIT #15) 

1159 ;¥STATUS REGISTER (RHDS1) (#01) 

tise yoooo1 DOFFS= 1 sDRIVE FORWARD S"/SEC. (BIT #0) 
1133 p60006 "aa O= 2 :DRIVE FORWARD 20"/SEC. (BIT #1) 
1154 IGB= 4 :DRIVE TO INNER GAVRD BAND (BIT #2) 
lee aaa Sleds 30 SOO FEERENCE Lees THAN 64 (BIT #4) 
ties lean  & DIFFERENCE FOUELS 1 (BIT a5) 
1158 900100 = 100 :VOLUME VALID (BIT #6) 

1159 ORY= 200 ‘DRIVE READY (BIT #7) 

1160 ante = 400 :DRIVE PRESENT (BIT #8) 

1161 901000 PROG= 1900 :PROGRAMABLE (BIT #9) 

1162 002000 LBT= e000 :LAST SECTOR TRANSFERRED (BIT #10) 
1163 004090 = 4000 ;WRITE LOCK (BIT #11) 

1164 010000 MOL= 10000 :MEDIUM ON-LINE (BIT #12) 

LIES 020000 PIP= 20000 “POSITIONING OPERATION IN PROGRESS (BIT #13) 
1186 040000 ERR= 40000 :COMPOSIT ERROR. (BIT #14) 

1162 100600 ATA= 100000 ATTENTION ACTIVE (BIT #15) 

1169 **ERROR REGISTER #01 (RHERI) (#02) 

1170 000001 tLF= 1 ;ILLEGAL FUNCTICN (BIT #0) 

117) p00002 ILR= 2 : ILLEGAL REGISTER (BIT #1) 

117 900004 RMR= = 4 “REGISTER MODIFICATION REFUSED (BIT #2) 
1173 00001! a :PARITY ERROR (BIT 83) 

1174 0 FER= 20 :FORMAT ERROR (BIT #4) 

1175 000040 WeF= 40 *WRITE CLOCK FAIL (BIT #5) 

1176 090100 ; ECH= 100 SECC ERROR (BIT #6) 

1177 00 HCE= 00 sHEADER COMPARE ERROR (BIT #7) 
1178 o0400 HCRC= 400 + HE CRC ERROR (BIT #8) 

1179 001 AOE= 1000 sADORESS OVERFLOW ERROR (BIT #9) 
1180 ° 002000 IRE= 2000 ‘INVALID ADDRESS ERROR (BIT #103 
1181 0040: LES 4000 s WRITE LOCK nPBOR (BIT #11) 

1182 01 OTe= 10000 : DRI MING ERROR (BIT #12) 

1182 020000 OPI= 20000 ‘OPERATION INCOMPLETE (BIT #13) 
1184 049000 UNS= 49000 :DRIVE UNSAFE (BIT #14) 















MAINDEC-11-DZ2RJI-A 1. CONT. TST-PT 1 MACYI1 27(655) 30-NAR-76 22:59 PAGE 27 SEQ 0087 
BOAT A Pit ERAON BOINTER TABLE 
1195 100900 pcK= 1u0000 sDATA CHECK ERROR (BIT 15) 
Hes ;4MAINTAINABILITY REGISTER (RHMR) (#03) 
il 000091 a feR sDIAGINOSTIC MODE (BIT #0) 
1199 goo002 MCLK= 2 IMAINTAINABILITY CLOCK (BIT #1) 
1191 MINX= 4 IMAINTAINABILITY INDEX (BIT #2) 
tl 10 MSTCK= 10 !MAINTAINABILITY SECTOR CLOCK (BIT #3) 
1193 MRD= 20 MAINTAINABILITY READ (BIT #4) 
1194 MUR: 40 MAIN CITY WRITE (BIT #5) 
1195 001900 DTSY= 1000 tMAINTAINABILETY SYNC DETECTED (BIT #9) 
1197 ;#ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 
113 p00001 ato: 1 SDEVICE 0 (BIT #0) 
1200 go0002 all= 2 !DEVICE 1 (BIT #1) 
1301 oo0004 atz= 4 :DEVICE 2 (BIT #2) 
_ 1362 000010 atz= 10 !DEVICE 3 (BIT #3) 
1203 000020 aTd= 20 ‘DEVICE 4 (BIT #4) 
1204 900040 ats= 40 !DEVICE S (BIT #5) 
1205 000100 Ate= 100 IDEVICE & (BIT #6) 
1208 00 AT7= 200 IDEVICE 7 (BIT #7) 
1308 ;XDESTRED SECTOR/TRACK ADDRESS REGISTER (RHOST) (#1) 
1208 !4EACH BIT IS CALLED BY BIT NUMBER 
1211 
1313 
1313 
1214 
1315 ;#DRIVE TYPE REGISTER (RHOT) (#06) 
128 :#EACH BIT IS CALLED BY BIT NUMBER 
1218 , 
1318 
1230 
1221 
126¢ ;#LOOK-AHEAD REGISTER (RHLA) (#07) 
1354 o00001 EXTI 
1356 















MO? 


NAINDEC= 1 1-D2RIT-A RPON/S/6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-NAR-76 22:5¢ PAGE 29 
DZRIIA. ERROR POINTER TABLE 

1 00090 psy= PACK SPEED UNSEFE (BIT #0) 

15a S00002 VUF= 2 ‘VELOCITY UNSAFE ( 

1295 000016 UWR= 10 ANY UNSAFE EXCEPT Arad iarte (BIT #2) 

129% 000020 PRE= = 2 ‘DISK PACK ROTATION ERROR (BIT #4 

1 po0049 acL= 40 “AC LOW (BIT #5) 

1298 1 OCL= 100 ‘DC LOW (BIT #6) 

299 020000 ACE= 20000 ADDRESS CHANGE ERROR (BIT #13) 

300 040000 SkI= 40000 !SEEK INCOMPLETE (BIT 

301 100000 OCYL= 100000 OFF CYLINDER (BIT 

3h 

305 ;¥ECC POSITION REGISTER (RHECI) (#16) 

306 :#EACH BIT IS CALLED BY BIT NUMBER 


oe 





b= & + b= 8 = bh Fb b= b= bb Fo pb BP bh ha pe 


310 

311 ;¥ECC PATTERN REGISTER (RHEC2) (#17) 
312 ;#EACH BIT IS CALLED BY BIT NUMBER 
314 

315 

316 

317 

318 

319 

320. 

321 
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DZRJIA.P11 REGISTER ADDRESSES 
1322 .SBTTL REGISTER ADDRESSES 










1323 

1324 

is 

4 ;#RPOW/S/6 DISK 1/0 REGISTER LOCATED IN THE RH11 CONTROLLER 
1359 O02270 176722 - RHDB: 176722 ;DATA BUFFER 

1330 O02e27e 176702 RHWC: 176702 ;WORD COUNT 

1331 O0ee74 176704 RHBA: 176704 :BUS ADDRESS 

1336 76 176710 RHCS2: 176710 ;CONTROL AND STATUS 2 

isa ;*RPO4/S/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC “wes 
1336 002300 176700 RHCS1: 176700 ;CONTROL AND STATUS 1 

1337 002302 . 176714 RHER1: 176714 ;ER u 

1338 002304 176706 RHDST: 176706 ;DESIRED SECTOR/TRACK ADDRESS 
1339 002306 176740 RHERe: 176740 ;ERROR_ #2 

iat 002310 176732 RHOF: 176732 ; OFFSET 

1341 OO0e3le 176734 RHCA: 176734 ; DESIRED CYLINDER ADDRESS 
1342 002314 176742 RHERS: 176742 #3 

1343 002316 176716 RHAS: 176716 SE TTENTION SUMMARY 

iat , 358 176724 RHMR: 176724 sMAINTAINARI ITY 

1345 - see 176712 RHDS1: 176712 ;DRIVE STAT 

1346 002324 RHDT: 176726 

1347 326 176730 RHSN: 176730 ; SERTAL NUMBER 

1348 002330 176744 RHEC1: 176744 ;ECC POSITIO! 

1349 002332 17674E RHECe: 176746 ;ECC_ PATTERN 

1350 002334 176736 RHCC: 176736 ;CURRENT CYLINDER ADDRESS 
izeh 002336 1767c0 RHLA: 176720 ; LOOK-AHEAD 

1233 ;*ADDITIONAL I/G REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 






135 
1355 002340 176750 RHBAE: 176750 ;BUS_ADDRESS EXTENSION REGISTER 
1356 O0e342 176752 RHCS3: 176752 : :CONTROL AND STATUS REGISTER #3 






128 ;¥P-CLOCK (KW11-P) I/O REGISTERS 


1 
1361 002344 172540 PCLCSR: 172540 ;CONTROL AND sratus REGISTER 
1362 O0e346 172542 PCLBUF: 172S4e ;COUNT SET BUFFER 

1363 002350 172544 PCLCTR: 172544 : COUNTER 
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DIRIIA. PLL REGISTER Boker sees 

cs 

3 :sTME FOLLOWING Loca GISTER SNAPSHOTS 

a PANY TI 1S AW ERROR ALE THESE WiLL BE PIER 

;#ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 

‘ PeFOR THE TIME JUST AFTER THE "ERROR" ERROR COMMAND 

32 iTHIS ASSUMES THAT A REGISTER GNAPSHOT HAS BEEN TAKEN UMICH 1s NOT 


e foe Ree wig guestio BOLE CONTENT ARN i oteR 
Bue pbc HE IN Thc ihe Te “TEST Cote no “Pee T atte ete ST wo 


 asakikaboanbebsoatammenatedaenetecnseieneanmneniiaeiial 


ws ah 








0 +0 +0 -0--b-o + 0-0 <0 + 6 <0 <b -< 6 = = 6-2} 8-28 8 = 8-2 8-0 3 Ob « & <b 0-28 <8 & + + 8. < O- + B-« fp ++ Bo Be 2 


8: DATA SUFFER 
We: :WORD COUN 
BA: : BUS RODRESS 
cs2: 6 : CONTROL STATUS 2 
cSi: 2 CONTROL AND STATUS 1 
Ee: 2 ;ERROR 8 m 
0 ST: DESIRED SECTOR’ TRACK ADDRESS 
3 300005 ER2: s ERROR 7 
1000 ¥ iDestae CYLINDER ADDRESS 
ANNONS a 
09) Osi: 28 
5 ihesls poo OO 
496 bi | f Cl: ww 
| “3: SOS4T4 9005 ce: 
53 She40 th 8 
be 


a ee eee | ee e+ ee eee ee + oe - 








| REY nan 
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Saya pit sia 0 Robeescee : 


De 


;®FUNCTION EQUATES 
_ S#TABLE OF FUNCTIONS FOR RHCSL THEN “GO” SIT HAS T9 SE SET 


FUTABL: 
We SAO: : ONLOAD CSTBND BY) 

ER: CALIBRATE 
CLEAR: 1 Tye _CLERR 

EAS: ;RELE s coereng OPERATION) 
PRCHEK: WAIT CK DATA 
WRCHDT: WRIT CHECK HEADER AND DATA 
WR TDA : 69 sMRIT DATA 
WRIFOR: !WRITE HEADER AND DATA (FORMAT) 
READAT: 70 :READ DATA 

FOR: 72 :RERO HEADER AND DATA 

eee ty Sef oe 
RETCL: 1 as Mi CENT EAL INE 
PKACK: 2 iP 
pret e “WORD OD R60 IN ILLEGAL FUNCTION 


;#DATA BUFFERS FOR REGO-WRITE 





5] WRFROM: .SLKW 274. sWRITE FROM THIS Burren 
‘ REINTOC: .BLKW E74. :REAC INTO THIS SUFFER 


83 
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RESIST 





jo a 


0-0-0 +0<-6 0-0 <6 «p< 0-<-§-+ 8 +p <p 2-0-0» +b &~ 0 0 -- 6-< > + p< B= 6 B= p-o pe 


4: 
a 


sai 


t role El 


coer 








DO8 


SES CC93 


;#RESERVED CORE LOCATIONS 
peer: 7 3; SAVE peels ADORESS HERE 
WORD NUMBER 


fo ee Grea re 
ieres. 3 eats ones or 
RSE mlb i nd SE 


OFSTVL: 9 ;OFFSET VALUE USED IN OFFSET TEST 
SAVERE: .BLKW 20. BLOCK i Recs Te TE At 5 Tse 
- preect BD Tone AF R fue EET 
FINALA: 8 Bk AHEAD REGISTER AT END OF OPERATID 
FINACC: y CURRENT CYLINDER REGISTER AT ENO OF iseRATION 


+TABLE FOR ATTENTION SITS 
SRATTENTION TABLE 


po ATABLE: .BYTE 2,2.4,30,20,4C, 100,200 


me nm es ae en ee ree re 
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OZAIIA.PLI RESISTER ADDRESSES 

















Ie s#FLAGS AND INTERNAL PROGRAM CONTROL WORDS 
Pa 
1472 90476 900010 UNITS: .BLKW 8. THIS IS FILLED WITH -1 
18 004716 paces UNIT: “WORD 9 :UNET UNDER TEST 
ts — ‘ae FO KEEP TRack BE UNIT UNDER TEST 
147 oo47@2 000000 NUNIT: .WORD 0 D T0 se RNIN IF THERE ARE MORE 
1478 04724 oococo NOPUSH: 0 OF THE OPERATOR 
1486 9047 SELECT: .WORD 0 ee an esTs it = ae SELECTED 
tat peas peeees UNITSL: .WORD 0 

004732 900000 UBUSB: s1E ZER 
1484 904734 990900 ERFLGS: 0 Lng 
1485 004736 FIRST: 0 !IF ZERO WILL TYPE HEADER 
148 ITF ONES WILL NOT TYPE HEADER 
1488 904740 oDD000 SiTTENT: QTTENTION BIT FOR PRESENT UNZT 
wes 004742 000000 TOTALAT: TOTAL ATTENTION BITS 
1498] 204744 cDDD00 FPOb: 0 :RPO& DEVICE TYPE FLAG LOCATION 
1492 OoN74—E Oo0000 RPOS: 9 MEMOREX RPOY DEVICE. TYPE FLAG 
1483 504750 00000 RHTo: 6 TF = 1, PROGRAM 1S RUNNING ON RWPO4 SYSTEM 
1494 TF = 0° PROGRAM IS RUNNING ON RIPOY 
1485 04752 ooDc00 INUNIT: © SENITIAL UNIT NO, = USED, DURING 
is SEHECKING ALL ADDRESS PLUS AODRESSES 
1498 









15 

1503 904754 900000 TPO: WORD 0 ; TEMP STORAGE 
1553 004756 O00000 TMPI: iWORD 9 

1504 Sow7ee sooc00 T™P4: [WORD STEMP STORAGE 








MAINDEC-11-DZRII-A, RPOY. FUNCT. CONT. TST-PT 1 
DZRIIA.PLI WORD TEMP STORAGE 


ata] 
au 


ul 
Qo 
= 


aia 3: 


wtwiutut 


177777 
004774 wot waitins 
904776 eas 177777 
JOSO04 005037 904724 


OWONMU£CWIT~-O 
[=] 
o-~- 
G 
“IN 


o— »~ p< b&b = & + p= 9 9 


004726 
004724 


inuniuiuiutn 


3 
i 
8 


012706 001100 
Boer 001240 
ec ‘ 

012706 001000 


sit it tit 


cververremnerrenvesververververnervenennernennerte + -b-- pp — b= b— b— 0 - 8-3 ps 

peotae 
-— 

Lo | 

~ 

Tu 

g 

oOo 

WwW 

£ 

oO 


cee eueaen 
sina 


5 
uw 


© 
Bots Prowe 
8 


if 


013746 900004 
i549 905162 ye 005216 
01 


1551 905176 012737 177570 
SSe 905204 777) «177777 
tas O0Sele O010le 


j 

| 

4 000403 

| 1856 005216 bie7ig Ooseey 
| 1558 O05224 12737 200176 


o04724 


004726 


003240 
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-3rTt *RDIAGNOSTIC CODEs* 
.SETTL 


-SBTTL SETUP TESTS 


BEGINI: MOV 


8-1 2 #NOPUSH : JUMP OVER OPERATOR REQUIRED TESTS 
CLR aaStLECT "DO NOT SELECT 
BR START 
BEGINe: MOV W-1,a8SELECT § ;SELECT UNIT 
cLR SENOPUSH :DO NOT JUMP OVER ANY TEST 
BEGIN: CLR DeSELECT :D0 NOT SELECT UN 
CLR aaNOPUSH :00 NOT JUMP OvER 7 OPERATOR 
! INTERVENTION TESTS - NORMAL RUN 
START: 
RESET 
.SBTTL_ INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (S$CMTAG) AREA 
MOV #$CM TRG, s;FIRST LOCATION TO BE CLEARED 
CLR (R6)+ ::CLEAR MEMORY LOCATION 
CMP #SWR,R& ;;DONE? ° 
BNE 6 ;;LOOP BACK IF NO 
MOV #STACK, SP ::SETUP THE STACK POINTER 


ss INITIALIZE A FEW VECTORS 
MOV 8SSCOPE BIOTVEC ; 
MOV #340, a lOTVEC+e 
MOV #SERROR, OHEMTV véc’ 


pA! VECTOR FOR SCOPE ROUTINE 
‘ENT Were FOR ERROR ROUTINE 


MOV #340 See aTtEC ec ie 
MOV aS TRAE FL MTN VE Ni VECTOR FOR TRAP CALLS 
RTRAPVEC+ steve 
MOV SSPuAON JePWRVEC ; pou FAILURE VECTOR 
MOV #340 OAPURVECSS sitevE 
CLR ST Ines t TY TTAL IE NUMBER OF ITERATIONS 
CLR SESC :;CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX * ALLOW ERRCR TEST 
V t. ,$LPAOR ;;INITIALIZE THE LOOP ADDRESS FOR SCOPE 
HOV Se TUPI THE ERR OOP ADDRE 
;3S1ZE FOR A HARDIE EiToH REGISTERS, TF NO OR IT IS 
::EQUAL TOA “=1", SETUP FOR R SOF TWARE SUTTCH REGISTER. 
MOV DRERRVEC :;SAVE ERROR VECT 
MOV #64$ MEFARVEC ::SET ERROR VECTOR 
MOV 8OSWR, SWR ; SETUP FOR A WARE SWICH REGISTER 
MOV SDDS? DISPLAY :AND A HARDWARE DISPLAY REGISTER 
CMP 8-1, SUR : TRY TO REFERENCE HARDWA 
BNE 66$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
T SUR IS NOT 
BR a BRANCH IF NO TIMEOU 
64S: Hoy 65S, (SP) ::SET UP FOR TRAP BE TURN 
65S: MOV BSWREG, SWR ::POINT TO SOFTWARE SWR 









a 
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TU Rtrtae THE COMMON TAGS 


Qler3? 000174 901142 MUV #OISPREG, DISPLAY 
Ole637 200004 66$: MOV (SP)+,9eERRVEC ;;RESTORE ERROR VECTOR 





012737 oo0c00 17777 MOV : SET PROCESSOR STATUS TO 0 3 
012737 900209 s00036 MOV soho. DeTRAPVEC+2: TRAP PRIORITY he 
13709 902266 MOV  — @WRPVEC, RO 5GET_RP_VECTOR ADDRESS oe 
le7e0 6044352 MOV SRPVECT:(RO)+ THIS IS FOR UNTIMELY INTERRUPTS 
012710 900349 MOW #340, (RO) sDRIVE INTERRUPT SERVICE ROUTINE 
1370 : PRIORITY 
is 
1572 005274 O04737 945352 ISR PC, JHSTKINT sINITIALIZE THE TTY KEYBOARD 
1573 005300 005737 004736 TST dat IRST :IS THIS FIRST TIME ROUND ? 
1574 005304 901091 BNE 1$ :DON’T GIVE HEADER IF NOT 
1575 005306 c0040e2 BR 25 !HEADER 1ST TIME THROUGH 
187% 905310 900137 906110 18: IMP J#SND1 :NO HEADER 
1578 005314 2g 
1579 005314 104400 905322 TYPE 68S 33 TYPE AScIZ STRING 
1580 005326 090435 BR 673 :GET OVER THE ASCIZ 
1581 685: .ASCIZ ¢15><12>?RPO4/S/6 FUNCTIONAL CONTROLLER TEST - PART I - DZRII-A’ 
1582 905414 bs; 
1583 905414 1044900 oos422 TYPE 70% i TYPE ofSctZ STR STRING 
1584 905420 000417 5R 895 C12 
1585 "ASCIZ ¢15)<12> REVISION’ pores ST ESES< iS) (12> 
158 005460 £93 
1588 oOS460 104400 ocOS4EE TYPE 725 :3 TYPE seeciz,S STRING 
1589 005464 900435 a 1§ ; ,GET ASCIZ 
1590 emi 44728: .ASCIZ (de> «2s, ALL OCL’S UNDER TEST MUST BE LOCKED ON THE CORRECT 
1592 ocSS6C 104400 ooSssEs TYPE 74S i TYPE aSCIZ STRING 
1593 005564 000433 BR 3$ GET OVER Asc! 
1594 -74$: .ASCIZ <15><12>/IF CHANGE IS OBR TRED ON PORT SWITCH, THEN A CYCLE 
1595 05654 545: 
1596 905654 104400 oDsé62 TYPE 76S ;31YPE ASCIZ STRING 
1587 605660 900435 BR at :GET OVER THE ASCIZ 
1598 .:76§: .ASCIZ <15><12>/UP SEQUENCE IS REO FOR STROBING THE PORT SELECT FLOP “<1S><12 
1599 oo0s754 63: 
| 1801 005754 194400 cODS7E2 TYPE 785 i: TYPE. asclz STRING, 
| 1602 005760 O0c4e6 B 7g ; THE ASC 
| 160 wi788: -ASCIZ <15><12>/ALL dei! S ‘Nor OUNGER TEST MUST BE SWITCHED. 
| 1604 o08036 ods: 
| 1605 006036 104409 oDeO4M TYPE  ,808 ::TYPE ASCIZ. STRING 
1806 906042 doo422 +95 : GET HE ASCIZ 
| 3607 --80$: .ASCIZ <15)<12>/0FF, OR + RED” ON THE OTHER PORT’ 
1608 0061:0 9S: 
| i616 006110 012737 i77777 O04736 SND1: Mov 8-1, 28F IRST :NEXT TIME DO NOT GIVE HEADER 
léle .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
| 


br ee ce ee - oo--e ee ene Se ee 


Sadid aan tt ee eahet on ee tate oa see a aes te a | ae Ve, ae i a a eee CANE Ee ee ae 





=A 


MA 
Lf) 


<DIRJI-A, RPO4/S6 FUNCT. CONT. TST-PT 
1Ft VALUE FOR SOFTWARE SWITCH REGISTER 


a 


POOrrwm 
> 0 > <b 6 8 - 
NOW DY 
vo 
~ be 
Gres Roeereee - 


Ce ee ee od o— 0 = 9 & 9 9 pe 


SEER FREEING 


® +0 — &-- 0 0-- 6 -< B= § — 0 = 8 9 9 pe 


fufy 


TsT #42 
oe 

ETSuR 

BR 6S$ 


64S: MOVE #1, SAUTOB 


6S§: 


RH70CK: OM sSW1l2, 3SWR 
MOV #-1, d8RH70 


33: 
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4$ 
SWR, 8SWREG 
6S$ 






SE3 0097 
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7 ARE WE NG UNDER XxDP/ACT? 
tSorT MARE SUITCH REG SELECTED? 
tiGeT 5 et SETTINGS 

;;SET AUTO-MODE INDICATOR 


$4.00K TQ IF Eee 8 RH7O 
:IF SWle = NEXT 
rIF SWle = 1) Cu IS AN SH7D 









o 
-_ 


oo 
ae 


b+ 0+) <b + 0— b-- 0 = 0 6 — b-< 0+ 6 & = 9 = = Be 9 


rrrwd 
Sea EOE 


16 


SRS SERS ROTC E 


+6 +0 b= b—- &-+ & <b = 0 = b= 8 -— B= Bb = Be pe - 


row 
mS 


<D2RII-A, RPO4/S’6 FUNCT. CONT. TST-PT 1 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


+ SRERAARASKSLAAARSRARSRAASAARAAALALA RELA ARAL ALASRAFAAAASLAASAF LSS 

S THERE A P=CLOCK (KW11-P) ON THE SYSTEM 

oot NT : 5° % 7 Ts 1’ 
HAT? TRAPS 68.40. "AIT T* 
RPOY INTERRUPTS GO TO ‘TIME 2° 


NEXT LINE IS TO Gore LATER 
NOP RENOV 
NOW NO CLOCK WILL BE USED 


at 


Gk 


pa 4 


318: MOV 
5p PREREEREREREES 


04 
177777 046760 


004730 OO047i6 
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S81$,ad8ERRVEC ;SET TIME-OUT VECTOR 
aes ;D0 NOT USE CLOCK 


2ePCLCSR ; REFERENCE Oaseone STATUS REGISTER 


jADORESS = 1 

@WAIT.P,deSTRPAD+2O ; THERE IS A P-CLOCK 

STIME1,QeRPYVEC ; THERE TS AP CLOCK $0 
;VESTOR TO TIME! 


es 
SWAIT.T,aeSTRPAD+20 ; THERE IS NO P-CLOCK 


STIME2, DeRPYVEC ;RPO4/S/6 INTERRUPTS GC TO ‘TIME 2° 
8-1,d8PRITEM CLEAR PREVIOUS ITEM NUMBER 


DeSELECT -WAS IT A 200 START 
TSTl ss; BRANCH IF STARTING FROM 200 
65$ 331 ASCIZ STRI 

4 SET OV asciz 


g 
<15><12> SELECT UNIT NUMBER TO BE TESTED ” 


177770, (SP) ;ONLY KEEP LAST 3 BITS 
} ;SAVE UNIT TO BE TESTED 


8 
(SP), aaUNIT 
(SP)+,d8UNITSL :SAVE UNIT TO BE TESTED 


TSTl ; BRANCH IF STARTING FROM 200 
QSUNITSL,SBUNIT ;SET UNIT NUMBER 


TAaMm 





EERE EERE ERE EERE EER ERE EERE RE REESE AEE EERE ERE SERS 





RPO4/S6 FUNCT. CONT. TST-P 


hl aT nome 
VALUE FOR SOFTWARE SWITCH REGISTER 
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ear Tene a ein meee 


~~ 


REFERENCE EACH REGISTER 
REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 


eters 


Soci sseIaeR GRR PERS e RETR ROORER a Ia 


o-- 0+ b+ 6 = & = b= b= 6 — bb bb b= 0+ = 0 8 = bb 0 0 = = 0 bh 2 = = be Bb = bP 0 0 ee 


NINNNNNNANNNSY 
= 0 oo ho ee 
OnwmrWM cWwrueO 





Te ee 


TIMES ; 1_ ITERATION 
3:4 a are i tRIS ace TEST NUMBER 
SeTACK T uP RCK POINTER 


sREGSAL, SHENTVEC: Enon vECTOR WaT 
#2$,38ERRVEC SET UP sien AE ae 


#24, RO ; THERE ARE 24 REG TO TEST 


#RHOB RI ?R1 NOW HAS ADDR OF ADDR OF FIRST REG. 
3(R1)4,Re ; READ HARDRARE RES. 
°C DOWN 
1 :BRANCH IF 24 NOT DONE 
3 “BRANCH IF 2&4 DONE 
BERRVEC ‘ss: QHERRVEC, RESTORE TRAP CATCHER 
iS s CLEAN Ty 
<aRi), 8 is jBTORE FAILI NG A 
fa. td if ie sIsTanT ? 
S$ yee ofseiz STRING 
4§ HE ASC cl 
(15><12>7IF BASE ‘ABBRESS” 1S TO BE CHANGED HALT/ 
67S ss TYPE ASCIZ STRING 


&$ GET OVER ASCIZ 
¢15)<12>/PROGRAM AND RESTART AT 


#BASECH, - (SP) ifr READY TQ TYPE STARTING ADDRESS 
“CHANGE OF BASE ACDRESS” ROUTINE 


asSEOP 60 TO END OF PROGRAM ------------- > 


#SERROR, JSEMTVEC; agen © ERROR VE 
REGISTERS TARE SAVED 


#ERRVEC+2, awerrvie: RESTORE CATCHER 








se a amet RPO4/S “6 FUNCT. CONT. TST-PT 1 


DZRJIA.P11 REFERENCE EACH REGISTER 


1713 
7 


SSS 
Ht 


FF AN IS 
PRP AMNIN MNRAS 
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titeet a PARTIAL TEST OF Rin MTOR UNIT NUMBERS PRESENT 


PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 


CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES INTO IT 
gS Bppanenorerpappemaenge ones een 


#1, STIMES ;:D0 1 ITERATION 
aSTACK, SP : SET br Ack INTER 
#3-1,d8TSTNM THIS SAVES TEST NUMBER 


J#RHAS, RI ;R1 HAS ADDRESS OF RHAS 
#-1,aR1 Tas URITES ALL ONES INTO RHAS 
aR! TEST RHAS FOR ALL O'S 


TST3.—; BRANCH IF 
JR1.a8SBODAT ;BAD DATA 
a#SCDDAT :GO0D DATA 

R1, J#REGADR ‘FAILING REG. (RHAS) 


S ;RHAS DOES NOT CLEAR BY WRITING 
ALL ONES INTO IT 














carhar har 
£m 


Setalotgto' ptalutelglolalolanll sea ee ee 





BISIERTE NO BIS IIIA eeS 


b= b= 0 b= b= bb Pe Bb 0 8 2 = be 0 bb bb bb 2 bb 2 0 fb 0 bP bb 0 = bo bP = = = bb 0 8 
a 





bp | 
250 






he 
wR 
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PARTIAL TEST OF RHAS FOR UntT NUMBERS PRESENT 


Booods 0460s 
045352 


172246 


172106 


De mg ot yr Ra ee re et + py 
:ATEST 3 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 

Ae 
i 
3% 
;* 
:# 


THE OF DRIVES PRE eT FOUND 
iM MOVI Ratt NTO RHERI Tat UNIT NUMBER 
N RHCS2 INCREMENTED FROM ZERO TO SEVEN 


THE BITS SET IN RHAS SHOULD GIVE DRIVES PRESENT 


’ 


THE DRIVE TYPE IS CHECKED TO BE AN RPOY/RPOG AND THEN 
+ UNITS PRESENT ARE STORED IN A TABLE CALLED ’UNITS’ 


SLRKE RELL KALLE ES KE KSA SER ERLE ELSE ARAL EERE KSEE SKE EEL LHS A EEK EEE SE 

+413: SCOPE tL, $1 

nv OM aTTeTNN His SAVES. Test NUMBER 

JSR spares tPNITIALIZE My: KEYBOARD 

BIT #SW13, aSHR s INHIBIT ERROR TYPEOUT? 

TYPE 65S >: TYPE ASCIZ STRING 

BR 43 “GET OVER THE ASCIZ 
jag5s: .ASCIZ 1) amputee AT RHAS - DRIVES PRESENT / 
4§: MOV J#RHAS :R1 HAS ADDR. OF RHAS 

MOV sennces. Re *R2 HAS ADDR. OF RHCS2 

CLR aRe :CLEAR RHCS2 

MOV : COUNT 

MOV SERHERI, RY sR HAS ADDR. OF RHERI 
18: MOV #-1,0R4" ERRORS INTO RHERI 

INC are HINGE ENENT NO. 

DEC RO T DOWN IVE COUNTER 

BNE 1$ BON NEX IF 8 NOT DONE 

MOVB @Ri,d8TOTALAT ;SAVE TOTAL ATTENTION 

;USED_IN DRIVE CLEAR TEST 
CLRB  a#TOTALAT+ ;CLEAR UPPE BYTE 
TSTB aR sresr A -e S’ FOR ANY DRIVES PRESENT 
o ONE pESPGnOl eS FILL BUNT TS" 7BBcE 

2S: BIT #SW13, ISWR ; INHIBIT ERROR TYPE our? 

BEQ 33 "NO DRIVES" MESSAGE IF NOT 

IMP SELTST ; CHECK FOR SELECTED UNIT START AND LOAD 

"UNITS" TABLE WITH SELECTED ONE IF SO 

33: 


TYPE 675 53 TYPE ASCIZ STRING 
BR 6S OVER THE ASC1Z 
ji6?S: “ASCIZ (15> 12>/NO prrvie“s BRESENT Ov 
: 69S ;;TYPE ASCIZ STRING 











Z 
8 
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-Pll 13’ TEST FOR ORIVES PRESENT USING RHAS AND RHCS2 


oOo 
2 
_ 
L 


007112 BR 685 T ov R T afiSclz 
ete --69$: .ASCIZ ><12>/MRITING’ ONES I ALL UNIT NUMBERS/ 
007174 ss 4718 ;;TYPE ASCIZ STRING 
007200 BR 708 GET OVER THE ASCI 

(J >< 12> DOES not’SET ANY BIT IN SO ABORT PROGRAM’ 


73$ ;;TYPE ASCIZ STRING 
25 “GET OVER THE ASCIZ 
<15<12>/T0 LOOP’ON THIS TEST WO PRINTOUT SCT SWITCHES 13, 8, 1, 8 & 


b= bb bs pe ho 


SetRReGRHoseS 


asSEOP 


;#SET UP UNITS TABLE 


NOU £WItueO 


: COUNTE 
suit Ts R3 SCOINTER 
a1, , (Ra)+ spre Se BLOCK TO ALL ONES 


3$ ;BRANCH IF 8 NOT DONE 
#UNITS,R3 ;POINTER 

Pe lone: UNIT NO. TO 0 
@#NOUNIT ;NO. ret S PRESENT 


#8. ,RO Cou 
dRi’ a#STMPO EMPORARY STORAGE 

aeStMPO *SET CARRY IF ONE IN C BIT 

S$ :CHECK NEXT UNIT IF ONE NOT IN BIT O 


DOWWOWODwWOnDMOw 
b= b= & b= 9 9 Bs pe pe 


Ss 


be 


: MOV RS, IRHCS2 ; INSERT UNIT NUMBER INTO. RHCS2 UA BITS 
172650 ¥24020, JRHDT iS THIS A DUAL PORT rod 


THE UNIT NO. IF 
172640 #20020, JRHDT iTS THIS A SINGLE PORT RPOY ? 
6$ TYPE UNIT NO. IF YES 


|: eeneagepeenenrpereenaareeeeesaaeepertsaainneeessnienenteaae 
172630 CMP #24021, JRHDT 3 BURL PORT RPOS ? 


6 
172620 7 amet 


BRS ee SOE 


mro 
ae 


1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
l 
1 
1 
l 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
7 
1 
1 
1 
1 
1 
1 


172610 #24022, ARHOT 
172600 #20022, JRHDT ie THIS 
BEQ 6 ‘TYPE UNIT NO. 
ell. Birth” MAAR ta AM Beek ti ein 


.IT’S NOT . RPO4Y/RPOS/RPOG DEVICE SO TYPE 
your’ THE DEVICE TYPE 









DZRJIA. 


1851 
ieee 
1853 


BRRRBARS 


a iat A 


U coell aged) pel aged apna auud aud aged aod aged auliaee ape aed camel oedl sed teed seed eck oad 
besTeslesteclestestestectes] 
zune o 
Wu Owon 


13’ 


104400 
000410 


013737 
013737 
005337 


005737 
001403 
013737 


007534 


001223 


004720 


004676 
004720 
004722 
004726 


004730 


004716 
004722 


004716 


etter’ RPO4/S’6 FUNCT. CONT. TST-P 
TEST FOR ORIVES PRESENT USING RHAS AND RHCS2 


TYPE 
BR 
-ASCIZ 
MOV 


big’ 


TS ta 


a 


6$: 


S$: 


SELTST: 


T1 





NOS. 
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65S 





ss TYPE ASCIZ. STRING 
: GET 





4§ OVER THE ASCIZ 

C15><12>/UNIT NUMBER / 

RS,-(SP) ;GET READY TO TYPE UNIT NUMBER 
67 ;; TYPE ASCIZ STRING 

b6$ :GET OVER THE ASCIZ 

7, RHDT = 7 

RHOT, - (SP) GET READY TO TYPE RHDT 

69$ 3s TYPE ASCIZ STRING 


8$ T OVER THE ASCIZ 
? = NOT AN RPOW/RPOS/RPOS DEVICE #1? 


S$ ;NO RPO4/RPOS/RPO& FOUND SO TEST NEXT UNIT 





RS, (R3)+ ;LOAD TABLE POSITION AND INCR IT 
RS, -(SP) rut OnE NO. ON STACK 

Q#NOUNIT :INCR THE TOTAL NO. OF UNITS 

RS ;’RHCS2’ UNIT ADDRESS 

RO ; DRIVE COUNTER DOWN ONE 

4g ‘TEST AND DO NEXT UNIT IF 8 NOT DONE 














O#UNITS, QBUNIT ;SET UNIT NO. TO FIRST ONE FOUND OR O 
J#NOUNT t , J#NUNIT; ae NO. OF UNITS 
@#NUNIT IF NUNIT = 0 THEN ONLY ONE UNIT 

:IF NUNIT > O THEN MORE THAN ONE UNIT 


QUSELECT Lg ADDRESS 200 
TSTY KIP NEXT IF STARTING FROM 200 
DHUNITSL' @#UNIT ;CHANGE UNIT NUMBER TO SELECTED ONE 









BRET at OSG. RPCH 8 Eu Taree BRESENT USING RHR AMG Ries? COTIAR76 22:59 PAGE WH one 


@ 


i so ss ict 4g TYRE GERI EER AO RIG TYR 
Bs :STEST 4 TYPE SERIAL NUMBER AND ORIVE TYPE 
183 :* SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN ‘ATTENT’ 
iss :# TYPE UNIT UNDER TEST 
18s :* READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 
+83, :* THEM GUT AND PROCEED 
is :* T SWITCH 8, AND THIS TEST NUMBER ON 
: : ;* cartones 8 THRE 7” AND ReStaay 
1922 ipsam 
4 ed : ' 4: 
igs en it 3 po0001 go1212 Vs SL, STIMES 00_1 ITERATION 
] 737 019706 001106 Hoy #1, SLPEOR :4SET SCOPE LOOP ADDRESS 
ise Borree 515739 BRON coMeoN MOVs geTSTNM sete TEST NUMBER 
1903 007774 OON737 041366 JSR  —- PC, BCL ISK SET Ri-RHCS1., RE-RHCS2 
igi | EN We INIT ALIZE 
1313 010000 005037 cO474C CLR = WATTENT rc 
isis 919004 73 716 TST = MUNIT 31S “UNIT O" NEXT IN THE UNITS TABLE * 
He Hee FG oxen Be Bim HE EID OM verte oarz 
igig ssl 129718 il Cees ait CRO) ‘tas Tt * 
4319 Ciodee O01 BNE «SS 'NO = GO AHEAD WITH TESTING UNIT a0 
1921 010024 005737 204726 TST  § JeSELECT sas UNIT #0 SELECTED ? 
198¢ CTE, Wag 11 8 219 START °) 
133 010030 901006 BNE «128 50, CHANGE PACK 
1925 sSINCREMENT THE UNJTS, TAB aE TO NEXT ORIVE (IF QNy) 
| 136k :#8 DECREMENT THE “NOUNITS” PRESENT (TO BE TESTED) 
36 32 | 7 Moy UNITS, NTER 
ges Bioese bosre Tt Troe" SRBC Re Next unt IN THe. Tame 
1936 ; (DOUBLE INCREMENT THE POINTER 
| 2931 920040 022710 177777 CMP a1, (RO) 315 THERE ANOTHER TABLE ENTRY BeESeNT * 
| 1632 O10044 01065 BNE ss iT SO, USE THE NEXT ORIV ES nC Ts” 
1933 F Not, int USE DRIVE 
1934 10046 128: 
| 1935 910046 1O4400 o10054 TYPE 658 :sTYPE ASCIZ STRING 
| $936 O100se 600434 BR b4§ ;GET HE ASCIZ = 
| Te ieeeel pygss: -ASCIZ <1S)«4 12)<15)<12>/BSMOUNT PACK FROM-UNIT a0 AND MOUNT A SCRATCH BACK. 
| 1838 QIDL44 zo4so0 ououse eng =" ase : TYPE ASCIZ STRING 
| 1955 Sicisc Odo4e! BR tté«GGS ::GET OVER THE ASCIZ 


ee a ee ee ee ee ee ee 








AMO 






PSS OM POUEE EUET: Ge El Salve re 


hy 
iste i 14 

is izsic carton 

l 1 1g 

iss? gissey SasSs- Gby-28 

; 010230 013700 oo4716 

} 

: 

22k S 

1956 O10 if beSd32 17e0s2 
i958 iB o20022 172042 
1353 1.82 140! 

igor Bibsee Bits? arrrz? oowrus 
196 10e74 OO0416 

194 910 7 coy 

1965 91 O21 172024 
1966 i 1 14 

196 et =” 020021 172004 
oe 

1 ise 

iss io3e4 ute 177777 004746 
1971 919332 

12 

= 

ra 

1876 01 116037 DO4ESE 740 
1358 Bi Ba38 iowa 019346 

ia 510344 14 

1 10376 

1981 615376 O13746 OO4716 

1982 10492 104404 

i 10404 194400 o10412 

1988 10410 sp0s10 

1986 010432 

1987 site O17746 171670 

ts i t DLOSHE 

2 Oa ltt ts: 

] r 

a 

1904 S]o472 10440! 


bis: 


118: 


S$: 


-ASCIZ 
HAL T 


BR 9s 
MOV (RO), J8UNIT 
JB8NOUNTTS 


DEC 


MOV QsUNIT,RO 


pores 27( 65S) 
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(15><¢12>/PRESS CONTINUE WHEN FINISHED’<15>< 12> 


;CONTINUE, USING SCRATCH PACK ON UNIT 80 


;SET UP TO BE THE UNIT UNDER TEST 
;DECREMENT BECAUSE UNIT #0 WON'T SE TESTED 


;RO CONTAINS UNIT UNDER TEST 


TieeeeeetR DARPOR CLEAR RPO DEVICE TYPE FLAG 


es: 


73: 


cL 

MOV 0, JRHCSe 
CMP 824022, SRHDT 
8&9 § 

CMP #20022, IRHOT 
eS 

MOV 8-1, J8RPOS 
SR 

CLR 

CMP JRHOT 
BEG ? 

iro #20021, @RHOT 


8 
MOV 8-1, 28RPOS 


re ed 


ie it’ z* SINGLE PORT RPOG ? 


eS. - SET 

; WT T FLAG - CHECK FOR RPOY 
DON’T CHECK FOR RPO4, IT WAS RPCS 
§ EAR ee le DEVICE FLAG 

IT A X RPOY ? 
ies. .SET THE FLAG FOR ADDR PLUG TESTS 
15 176 SINGLE PORT MEMOREX RPO ? 
:YES T_THE FLAG FOR ADOR PLUG TESTS 

MEMOREX ORI 


ne = 
SSET THE F LAG 
SUME THE NEXT UNIT IS AN RFOY 


Ts SEOESERAESROESEEOESSEOSEESOEGESEES5050000005500040560099042008 


TS 


23718: 


>ds: 


ig? 


MOV QRHOT, -< SP) 


MOV heat - SET RPPROPRIATE ATTENTION SIT 
TY TYPE ven fie aac 
bas tiger oven OVER aScIz 
ASCIZ <15)<12>/TESTING ORIVE NUMBE 
MOV QaUNIT, -<SP) sUNTT NO. NO. TO STACK 
TYPDS DRIVE NO. 
TYPE 4218 $3 VBE ASCIZ STRING 
pe “35 ,GET OVER ASCIZ 
ASCIZ <1>«12-SERTAL fd. = 
Hoy QRHSN, - (SP) N FOR TyPEOUT i aeeee 
TPE” #738 Boy BecIs STRING. —_ 
BR 25 OvER THE ASCIZ 
ASCIZ <15><12>/DRIVE rides 


;:SAVE JRHOT FOR ei 
3360 TYPE--OCTAL ASCII\A 








oe teeny 


° 


. 
- 


RIA, RPCH 5 8 FUNCT 


TAL NeaeR BND rive ree 


eee ee 
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<2 


i ooo 





$6 





Bae 





ie (ee 024020 
ibeiz Bois, Om 
a ate 22777 024021 
1Besq 020021 
S008 010532 O01447 
a S BRiday On t0ee 
aie 19544 Biss o20022 
1 ipsse 420 
1§ 010554 
1 
at 
1 
: ai 
See 010556 104400 O10Se4 
10562 00413 
5 igs 
10612 00435 
see s:3e14 o4yog 10822 
=038 Bi ABoai 
03 125 000416 
os ie 2 
34 O15? 104400 OI0GEO 
2035 010658 O004!3 
chee 
2037 910706 
$h36 
2040 
2041 
5oa5 910706 00s 171414 
Soue Storie Bitar ipiuoe 
4& 816724 817737 171374 


171622 
171612 


171652 
171572 


171562 
171552 


002419 
002406 


FUNCT. CONT. TST-PT 1 
TYPE SERIAL NUMBER AND DRIVE TYPE 
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: TYPE OUT THE DRIVE TYPE IN ASCII 


ieee esd OT GPT ee 


4§: 


758: 


sas: 
S$: 


ig 


6$: 


big: 


MP a ; . 
BEG 4 : iY! G OUT 
CMP #20020, JRHDT ;SINGL T RPOY ? 
BEQ ae :TYPE THE MESSAGE 
gh toner an Oa 
CMP #20021, JRHDT Fee TESo8 See 
3&0 63 ope ue MESSAGE 

MP #24022, JRHDT ? 
OSS rm THE MESSAGE 
CMP #20022, JRHDT sSINGLE PORT RPO& ” 
SEQ , TY M3 report 


pave t T AN RPOY/RPOS RPO 

DON’T TYPE ASCII MESSAGE OUT 
;~SHOULD NEVER HAPPEN AT THIS POINT 
;UNLESS DRIVE GOT SICK WHILE TESTING 
;WAS IN PROGRESS 


TYPE 75$ + TYPE aScIZ STRING 
BR g T OVER ASCIZ 
"ASCIZ <15><12>-oRIvE 18° Fi RPOY/<« 15> «12> 
BR 1s :SKIP NEXT MESSAGE 
TYPE 77$ +3 TPE ois I TRING 
3 : aScIZ 
ASCIZ <1§><12/oRIvE 18° of "APOE «15>«12> 
BR 1s :SKIP NEXT MESSAGE 
TYPE 795 ss TYPE fscle STRING 
9a $ :GET THE aSCIZ 
"ASCIZ <15><12a>/0RIvEe 18° AN Poca 


5 ERSELEAALALEREARALARALERALLALSAALAERRALALERALRERLLERALFRALLLERLER 


1$: 


TST JRHSN ;READ SERIAL NO. AND DRIVE TY 

TST @RHOT ; THESE TWO ARE TD HELP SCOPE LOOPS 

MOV JRHSN, J8SN ;SAVYE TO CHECK IF ORIVE CLEAR gLEARS ANY $13 
MOV @RHOT , daOT ;SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY 917 





~~ 





SES C107 






# 
ae 


1-DIRJI-A, RPOYS & FUNCT. CONT. TST-PT MACY11 27(655) 30-MAR-76 22:59 PAGE 46 
1 v4 TYPE SERIAL NUMSER AND DRIVE TYPE 


2] 
a 
a4 
Ps) 
“oO 







“ 






5 RERRERRAPREREL SERED EEE R EASES EEE LEE RARERE SEER ELSE PEEEEEES ESSE ESE 
;*#TEST S CHECK MOL TO BE HIGH 








5 :% MEE THAT DRIVE Is ON bine FORE STARTING PROGRAM 
A Le IF ie ES OFFLINE, THEN AFTER TYPE OUT THE PROGRAM WILL 
§ ; HANG FOR EVER WAITING FOR DRIVE TO GO ON LINE. 
s SePSEPELSSSSEPELSFSSASLLLSKSARASSSASSAARSLKSSERSRSEAFELEARSRS LASSE 
Be pion Brera? ooveoy STS! Benre STSTNN — ; THIS SAVES TEST NUMBER 
ieeas Bagsas pee eR OPE REE DESK sat? IN Tie fe 
1 3 010003 SIT aMOL, ORS “CHECK MOL IN RHOS1 
1 1! $16 : BRANCH IF HIGH 
Bee Biseea focuses ree BR Phe $s ere ER Sue nectz 
Bs vant iigss: SASCIZ § «15><12>/DRIVE 18° SEF INE - nuts LOW? 
563 bites iioaea 221080 =) ree me SET OVER THE nec 
2s so s igg7S: -ASCIZ cis) «42> /HIT START ON DRIVE 10 GET fT ON LINE? 
72 Bit 100 104400 OL1ICE as Wee 69S ;:TYPE ASCIZ STRING 
e073 11104 000431 BR, O88. sAQET OVER THe AScIZ a 
oe jie: SASCIZ <18><12>/-PROGRAM'WILL HANG TESTING MOL TILL MOL IS HIGH 
2c ties 0327:3 10000 i$: BIT sMOL, JR3 ; CHECK IN RHOS1 
1i174 90177 9 1§ : BRANCH MOL S HIGH 
28 11176 104400 011204 YPE 1$ >: TYPE ASCI ING 
itede 004 BR 708 :;GET OVER THE ASCIZ | 
2080 t pa71S:  .ASCIZ <15><12> GOOD - MOL IS NOW HIGH. PROGRAM KILL NOW SE EXECUTED < 15) <12> 
208i Slleve 4s: : 
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Ck MOL fo BE HIGH 


5 PPRRERRERRRRRE EES TEER REAEEE EELS ERES SEER SLES EREESECESEES ESSERE SS 
;#TEST & PROGRAM INTERRUPT 


:* Ait INTERRUPT IS TESTED By SETTING ROY AND IE 
:# N Res Ar i 

My "THROUGH CATION 2s4 

:# ty te Se? 





es swmanalil PROCESSOR PRIORITY TS: SET TO4 ns 

90004 tSte: SCOPE 
12737 004604 MOV 87-1, 38 TSTNM THIS. SAVES TEST NUMBER 
31558 Bb 508 MOV asTAcK, SP RESET 
004737 041366 ISR PC, ISCLDISK SET RI-RHCS1 Re-RHCS2 

GIVE Hlt INIT! INITIAL 12E 

aa 

328 513500 B11378 NOV RPTREL(ROD# STIS TSF NTERRUPTS 

Feats BASS MOV #340, (RO) mn i 1% EAE IS ROUTINE 
012727 090200 177776 MOV #200, PS ee OBROCESSOR PRIORITY 24 (DISK 2 5) 
012711 900300 MOV ROY! IE, RL :ROY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 
013737 o4e064 001200 MOV QETINCNT, asSTMP1; COUNTER 


601200 18: pee (a MP1 suaTT ne fp NOT zee 
is: 4 pei SHOULD OCCU 


ihrem I 
SNE ONTROLLER vie CS2 CLR BIT 
; BRANCH TO NEXT TEST ----------------- ’ 


; 
re 


> +0-+0-—0 +0-+0-+0-- 8 +--+ 0-<0-« B-< 0-< » ~< © + B-< §-—< &-< & ~ §—= 9 po 


TUDE LDO-- o—- bb 0 8 0 8 - 
- o+0-+6--9— eb -- ob op be e-b- -b—b 


BONS FRE BBE Se RS 


2 Coenen ~s-E ttUs- toed er 


RPTRE1: CMP (SP)+. (SP)4 ite Seou "oe 
004200 CMP aDVA!RDY, RL LOW AS RUPT OCCURRED 
BE TST? F G000 -------------------} 
104065 ERROR 65 , ESS C put 
: Lisde o12712 ocoDo4e MOV #40, aR2 :CLEAR CONTROLLER VIA ¢S2 CLR SIT 



















! 
: 
! 
| 
‘ 
; 
' 


OCO007 O04604 
001900 


PATE CE -OcRIT A, RPOY/S “6 
DIRJIA.PL1 Té PROGRA 
2l22 
2i23 
gic 
125 
3156 
2ie7 
2128 
515 
sist 011406 o000C4 
e132 011410 012737 
sis O11416 J12706 
2135 O11422 004737 O41366 
e:36 
2137 
2138 
21393 
2140 O114%26 913700 O02266 
2141 QOil432 O12720 O11476 
sis 011438 012710 900340 
2144 011442 012737 000240 
sti 011450 O12711 090300 
2147 011454 013737 O420E4 
2148 011462 005337 001200 
2149 O11468 00137 
2150 
e1sl 
21Se O1i470 Ol2712 Od0CO40 
2153 011474 04 
2iS4 
2155 O1147& 22626 
siz 011500 . 104065 
e:SS 911502 Ol2e71e 900040 
2159 
2160 
3iEl 
Elbe 
els3 


FUNCT. CONT. TST-PT 1 MACY11 27(655) 
M INTERRUPT 


177776 


901200 
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5 RRARAKAARERAAA SAA RA RA RAL AALS LEAL AL AAA RL HAA LA ARLE LALAF RELL ALF ER 


; 
3% 


+617 


1$: 


RPTRFe2: 


TEST 7 


INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


PROCESSOR PRIORITY IS SET AT S (SAME AS THE DISK) 
IE AND RDY IS SET. THIS SHOULD NOT ALLOW INTERRUPT 


MOV #10-1,d8TSTNM 
MOV aSTACK, SP 


JSR PC, J#CLDISK 


MOV — Q#RPVEC, RO 
MOV —- #RPTRP2? (RO)+ 
MOV =. #340, (RO) 


MOV #240, PS 
MOV #ROY! TE ORL 


DEC 
BNE 

MOV #40, ORE 

BR tsTio. —; 
CMP (SP)+, (SP)+ 
ERROR 65 


MOV #40, JR2 





ee Re ee ee nee 


; THIS SAVES TEST NUMBER 
RESET STACK 


:SET RI-RHCS1, R2-RHCS2 
:R3-RHOS1, RY-RHERI 

: GIVE R11 INITIALIZE 

:SETUP UNIT NUMBER 

GET RP VECTOR ADDRESS 

:THIS IS FOR UNTIMELY INTERRUPTS 
POY INTERRUPT SERVICE ROUTINE 


sPRI 1 PROCESSOR PRIORITY 25 
SADY, IE IN RHSC1 WHOULD CAUSE INTERRUPT 


MOV poe ae , OeSTMP1; ; COUNTER 


;WAIT a 
BEF ORE THIS IS ZERO INTERRUPT WOULD 


U 
ICLEAR THE CONTROLLER VIA CS2 CLR SIT 
io” INTERRUPT SO CONTINUE ----------------- 


;RESTORE STACK 

: INTERRUPT OCCURRED WITH PROCESSOR 
{PROCESSOR STATUS SAME AS DISK 

ZCLEAR THE CONTROLLER VIA Sz CLR SIT 
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MAINDEC=11 > FUN 
DZRIIA.P11 718 PACK ACKNOWLEDGE 

21s4 33 s LELEASAARHAAAALA AA HESAAASARALLAL LARS RA LAARALEREARAFRERALAFLFAFRLE 

165 TEST 10 PACK ACKNOWLEDGE 

sit? :* IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT SE PERFORMED 

gig3 : F THE PROGRAM WORKS UNDER ACT-11 MONITOR 

e170 ii HEN THIS TEST IS NOT PERFORMED 

eis : 

e172 1% IF NO ACT-11 MONITOR IS PRESENT 

3173 : THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 

eid i ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 

2176 x THIS TESTS THE ACKNOWLEDGE COMMAND=44 

el7s :% V BIT - RHOS! BIT #6 

2178 1% MOL BIT - RHDS1 BIT #12 

2178 1% DVA BIT - RHCS! BIT #11 

2180 :* THE DRIVE IS STOPED MOL IS CHECKED TO BE O 

2181 :% ND DVA SHOUL 

2192 te THE DRIVE IS POWERED U 

2183 i VV SHOULD BE 0, MOL SHOULD BE 1, DVA SHOULD BE 1 

2184 : % GO SHOULD BE 

2185 % ALL REGISTERS EXCEPT RHDB, RHLA AND RHCC ARE STORED 

2186 :# PACK ACKNOWLEDGE 

2187 1% ALL STORED REGISTERS SHOULD BE UNCHANGED 

g188 ; + EXCEPT VV 

2130 = KEKE ELRRALAERRAA RSA SRA SLA RELA ASRHE RARER LEAR ARAAAARALSELRALEALE 

2191 611506 oofo04 ¢éT10: SCOPE 

2192 911519 612796 oo10c0 MOV WSTACK, SP sRESET STACK 

e133 01:514 012737 OO0010 ocO4s04 MOV #10, a8tSTNM ‘SAVE TEST NUMBER 

2195 O11522 004737 041366 JSR PC, I¥CLDISK ;SET R1-RHCS1 R2-RHCS2 

21% R3-RHDS1, RY-RHER 

2197 7 G1 VE a INITIALIZE 

2198 :SETUP UNIT NUMBER 

2199 911526 912737 009000 177776 MOV #0,PS : SET PROCESSER STATUS TO O 














ze0e s*THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE CK 
2204 611534 005737 904724 TST a#NOPUSH ;IS THIS A 220 START ? 

2205 611540 001007 BNE 1$ :SKIP THIS TEST IF SO 

2206 011542 0095737 oD004e TST dee sHONITOR (ACT 11) RETURN ADDRESS ? 
2207 011546 001004 BNE 1g ;SKIP T HIS TEST 

2208 911550 005737 001100 TST aeSPASS ST 

2209 011554 001001 BNE i {SKIP THIS TEST IF NOT 

2210 011556 900402 BR 2g :CONTINUE WITH THIS TEST 

€ 

Pele 011560 1$: 

2213 O11560 000137 ol22be JMP TSTl1L =; JUMP TO NEXT TEST ---------------- } 
2e14 011564 2s: 

2215 O11564 104400 011572 TYPE 653 $3 TYPE ASCIZ STRING_ 

2ele 011570 00407 BR 4§ “GET OVER THE ASCIZ 

2217 :365$: .ASCIZ ¢15><12>/STOP ortie 7 





Tam 





MAINDEC-11-DZRJI-A, RPOW/S6 FUNCT. CONT. TST-PT 1 
JIA. 718 


PACK ACKNOWLEDGE 


COrw 
TrL£OoOOd 


tet hy 


ProLw 
e GNowS 


COrrro im 
8 BRE 5 
“3 


O00 200 200000 20000 
=-—“G) mo 


bas bows be b= pps $+ pb = ps pe o- > ~6— & = os 


-O 


16 
2 


n 


NI 
be 
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JSUNIT, -<SP) ;GET UNIT UNDER TEST 


67S ;;TYPE ASCIZ STRING 
&$ OVER THE ASCIZ 
Y THEN HIT CONTINUE7<15) (12> 


#MOL , dR3 ;MOL_ IN RHDS1 SHOULD BE = 0 

3$ BRANCH IF MOL=0 

R3, J#SBDADR ;FAILING REGISTER ADDRESS-RHDS! 
i ;ON tty A RED DOWN 


*MOL_ SHOUL 

QHUNIT, -(SP) : UNIT 

#IR, (SP) ‘INCLUDE IR 

(SP}+, aR2 ‘ONLY UNIT NO. AND IR SHOULD BE 
‘HIGH IN RHC 

4§ ‘BRANCH IF RHCS2 GOOD 

Re, I#SBDAOR sFAILING REGISTER ADDRESS-RHCS2 

11 swith SPINDLE POWERED DOWN 


Y UNIT NO. AND IR SHOULD BE 






PC,aHCLOISK {SET RL-RHCS1.,_ R2-RHCS2 
695 $TYPE ASCIZ. STRING 
THE ASCIZ 


S$ 
C15) <12>/START DALVE/ 
QaUNIT,-(SP) | ;GET UNIT UNDER TEST 


715 s; TYPE ASCIZ STRING 
0g OVER THE ASCIZ 
7 AFTER HEAD LOAD’ HIT CONTINUE/<1$><12> 





#MOL , ARS Hes iN RHDS1 SHOULD BE = 1 
;BR OL = 0 


S$ 3 
#0PR, JR3 ;DPR TN Se BE = 1 
#DRY , ORB sDRY rN NO as BE = 1 








#VV,dR3 iW IN RHOS SHO 7 eo eS 0 
ay Saaeonee iE GIL ING INBCE Pou popRE - RHOS1 


:RHDS1 SHOULD HAVE VY = 0, MOL = 1 


JR1,RO -GET RHCS1 CONTENTS 
cc! TRE!MCPE! 76, RO-:CLEAR SC, TRE,MCPE AND 














3575 012064 
e 


ee 


710 


022700 


B11? 
194013 


004737 


004737 
104400 


000000 
013777 


004037 
ppee’s 

46le 
oco02e 


013777 


013746 
052716 


012677 
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OZRIIA.P11 


PACK ACKNOWLEDGE 


004200 


001122 


170230 
002334 
Lie? 
170210 


041366 
041424 


O&6402 
002460 


041534 


004606 


002460 
000001 


170070 


004600 
001126 


170124 


170072 


7$: 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


JSR 
RHW 


SAVERE 


18. 


MOV 


MOV 
BIS 


MOV 
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SALL FUNCTION BITS 
WOVAIRDY,RO  -:RHCS1 SHOULD HAVE 

560 = 0, DVA = 1, ROY 
:BRANCH’ IF _RHCS1'I 
:FAILING REGISTER : 
SAFTER A POWER UP WITHOUT ANY 
SINIT RHCS1 


GO = ROY = 1, IE=0 
:DI TSREGARD” ALL OTHER Bits’ 





7$ 
R1, d#SBDADR 
13 







JRHCC TEST RHCC, aie SHOULD = 0 
10$ : BRANCH =0 
JRHCC, IBREGADR ;FAILING REGISTER RHCC 
a#SGDDAT *RHCC SHOULD BE = 0 











% 
@RHCC,a#SBDDAT ;BAD DATA 
14 SAFTER POWER UP RHCC 
:SHOULD BE O 







PC, a#CLDISK ;SET +! age ee 








*R3-RHDS1 1 
; GIVE Ril INITIALIZE 
TUP UNIT NUMBER 
PC, J8CHECK i CHECK THAT DVA.RDY,MOL,DPR,D 1 
HAT NO STATUS BITS ARE Suck = 1 
, CPHALT CANNOT CONTINUE TESTS IF THEY AREN’T 





O#PKACK, JRHCS1 GET READY FOR PKACK 
; PACK ACKNOWLEGDE WITH 22 IN RHCS! 







t+, REGISTERS 

HWC_IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
j THE REGISTERS ARE SAVED 

NUMBER OF REGISTERS 


RO, J#SAVER 





sSET RPOY VECTOR ADDRESS 
‘tS *TIMEL’ IF P-CLOCK IS PRESENT 
R TO aHE, IF P-CLOCK IS NOT PRESENT 
TIME’ WILL ONLY SAVE 
SMALE NT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 





@SRPYVEC, ARPVEC ; 











DHPKACK,-(SP)  ;GET READY TO MOVE COMMAND 
GO, (SP} GET READY 
sHETHOUT INTERRUPT ENABLE 


(SP)+,9RHCS1 
"322 IN RHCS! FOR PACK ACKNOWLEDGE 
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DZRIIA.P11 116 PACK ACKNOWLEDGE 


2326 ;WITH INTERRUPT DISABLED 
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51x ggg ges ure BHT FOE MoRT WELD 
2332 000100 VV WAIT R VV BIT IN RHDS1 REGISTER 
cise piselg Spoon t /ALLOM’0,BHCR9 sepotOs 
2335 :00 AND 20 MICRO SECONDS 








2338 Ol2222 004037 O42246 JSR RO,dsCHREG = ;CHANGE BITS IN ave REGISTER 
533 Oleeeb 002322 RHDS1 CHANGE RHDS1 REGISTER 







e341 012230 000001 1 ;1 BIT/BITS TO BE CHANGED 
e342 Qlee3e 000001 1 ;NEW VALUE OF VV IS 1 
sais Ole2e34 000100 VV ;CHANGE VV 

234s ;*NOW COMPARE REGISTERS SO THAT NO REGISTERS 

2346 :*CHANGED EXCEPT VV IN RHDS1 AND IE IN RHCS1 










34 
sa 012236 004927 042354 JSR RO, J#COMREG ‘oro Bet: REGISTERS WITH 
e351 di2e42 O04ble SAVERE ‘6000 DATA SAVED IN *SAVERE’ 
e3Se 012244 002354 Wc ;TEST DATA STARTING FROM *RHWC’ 
2353 Ole2e%6 g000ee 18. 318. REGISTERS TO Fee COMPARED 
2354 Ql2eS0 012254 11$ SRETU URN TO 11$ ON ERROR 
Ss2P OleeSe Ole260 12$ RETURN TO 12 ON NO ERROR 
e357 pieces 104015 118: ERROR 15 ;GIVING A PACK ACKNOWLEDGE 
2358 OieeSs 000207 RTS PC ;CAUSED AN ERROR 

2359 ; PACK poe Se SHOULD 

2360 SET VV IN 1 

5sph S ONTERRUPT SHOULD MAKE 






IE = 0 
2363 NO OTHER REGISTERS SHOULD 






2364 

e365 6000 DATA GIVES 

2366 ;CONTENTS OF REGISTER BEFORE 
2367 sPACK ACKNOWLEDGE 

2368 RECEIVED DATA GIVES 

e3t9 :CONTENTS OF REGISTER 

2370 sAFTER PACK ACKNOWLEDGE 











1 
e372 Ole2e60 012737 177777 O46760 12S: MOV 








#-1,d8PRITEM ;CLEAR PREVIOUS ITEM NUMBER 


Asam } 
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le ry gemma I a 9g pene semne remnant 
; Te 

38 ;# ‘Is TEST SETS VV IN RHDS1 INCASE 

2380 ;* ACT-11 MONITOR IS PRESENT AND THE PREVIOUS TEST 

gseh 3% IS_NO ORMED 

38. 3% THERE IS A RESET AT THE BEGINING OF THIS TEST 

2363 3% FOR ERROR RECOVERY ONLY. 

385 ° vr eagal °° jetmamerean:tcmint paces nse cimesnenmemsaniantn etter aan 






g388 012266 000004 t$T11 







2388 ;#IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP 
2389 *#0R POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 
390 Ol22 ogg00s RESET 

331 012272 004737 o4sS352 ISR PC, J#STKINT ;INITILIZE TK 







e334 Ole276 012706 901000 MOV wSTACK, SP ;RESET_STACK 
sim Cle30e 012737 G00011 OO4E04 MOV #11, aetSTnm :SAVE TEST NUMBER 
2397 012310 004727 041366 JSR PC, J#CLDISK ;SET R1-RHCS1, Re-RHCS2 
















:R3- 

400 : SETUP 
e401 012314 004737 o41424 JSR PC, JSCHECK : CHECK THAT DVA BBY, MOL,DPR,DRY = 1 
sie “AND THA STATUS BIT 78 are STUCK = 1 

012320 104400 Ob6402 TYPE =, CPHALT ; CANNOT CON INUE TESTS IF THEY AREN'T 
2404 Ole3°4 HALT :ST 
e40S Ole3¢6 013777 O02460 167744 MOV - @&PKACK,ORHCS! ;GET READY FOR PKACK 
e408 : PACK RCKNOWLEGDE WITH 22 IN RHCS! 





58 ;#NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 
e411 012334 904037 041534 JSR RO, J#SAVER ‘RHE REGISTERS 
e412 012340 O0ee7e RHWC HWC_IS THE FIRST REGISTER SAVED 
e413 Ole3s4e O046le SAVERE STARTING ADDRESS OF WHERE 
2414 Fae REGISTERS ARE SAVED 
2415 012344 000022 18. ;NUMBER OF REGISTERS 
suis ;SAVED = 1 
2418 012346 013777 OO4606 16771e MOV QBRPYVEC,AIRPVEC ;SET RPOY VECTOR ADDR 
e419 310 *TIME1’ IF P-CLOCK 
2420 TO *TIME2’ I 
NLY BANE 

ee ER Al 

424 
e426 012354 01374 o02460 MOV Q#PKACK,-(SP)  ;GET READY TO MOVE COMMAND 
e4e7 O01e360 OSe716 O00001 BIS #GO, (SP) :GET READY TO SET GO 








ee aes 


| 21r* } 





012364 012677 167710 


018372 


012464 
012466 


012466 
012472 


12474 


12476 
012500 


01e502 


Til 


O11308 


104063 


004037 
002322 


00001 


00001 
000100 


004037 


poe seo 


001126 
004600 


042246 


042354 


RHDS1 


64S: 


66S: 
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(SP)+,JRHCS1 


dR1,RO 
@R3,RS 
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;WITHOUT INTERRUPT ENABLE 


6 2 IN RHCSi FOR PACK ACKNOWLEDGE 
WITH INTERRUPT DISABLED 


;SAVE RHCS1 pune ABOVE OFERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


wit FOR VV BIT 10 SET 
WAIT FOR RHDS1 REGISTER 
Malt FOR VV BIT_IN RHDS1 REGISTER 
;ALLOM 10 MICRO SECONDS 
;VV MUST SET BETWEEN 
00 AND 20 MICRO SECONDS 


; #COMPARE CONTENTS OF RHCS1 AND RHDSI ALREADY SAVED IN 
;#RO AND RS IMMEDIATELY AFTER GO 


D#PKACK, -(SP) 
#DVAIRDY, (SP) 
(SP). J#SCDDAT 
(SP)+,RO 


64S 
RO, d#SBDDAT 
Rts , JBREGADR 


(SP). a8SG 
(P)4 RE 
66S 

RS, JHSBDDAT 
3, J#REGADR 


RO, J#CHREG 


AVE COM Lr} 
INCLUDE DVA!RDY 
SAVE FOR PRINTOUT 
DURING ABOVE OPERATION ONLY DVA!RDY 
SAND COMMAND SHOULD BE SET 
; BRANCH IF GOOD 


TA 
‘FAILING REGISTER RHCS1 
s DURING ABOVE OPERATION ONLY 
AND DVA!RDY SHOULD BE SET 


ND 
#MOL! Saeed? tgp) jane BITS SET DURING OPERATION IN RHDS1 


;SAVE FOR PRINTOU 
‘DURING ABOVE OPERATION ONLY MOL! DPR! DRY! VV 
:SHOULD BE SET 


H 
; BRANCH IF GOOD 
TA 


:FAILING REGISTER RHDS1 
DURING ABOVE OPERATION ONLY 
;MOL!DPR!DRY!VV SHOULD BE SET 


;CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 


1 BIT/BITS TO vor CHANGED 
‘NEW VALUE OF VV IS 1 
CHANGE VV BIT 


;*NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
:#WITH AFTER PACK ACKNOWLEDGE 


JSR 


RO, J#COMREG 


; COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 





SSIES SH -DIRIIOG, BPOM. 56 FUNCT. FONT. TST-FT 

D2RIIALPL Ti! TW BIT a IN RMBS! 

‘E482 DUES DoyEI2 SHVERE 
Re GS be i 

ne 13816 O12524 23 
88 932520 10491 18: ERROR 
#53 RiEEsg Asis ars” 
Rit | 

3 

e 

Be 

ne 

ne 

2525 012824 2s: 


ee niiigeiegenaneineiiaiaiaicatapaiiatatian 


B10 
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;G000 pare ave IN "SAVERE’ 
ids Esls ARTING FROM "RHC 
R aT xe ae SE a ct 


8 as OF RRO 
RE TORN 18 ON RO ERROR 


GIVING A My ACKNOWLEDGE 
: CAUSED AN 
tr K ACKNOML EDGE SHOULD 

; INTERRUPT SHOULD MAKE 


IE = 0 
NO OTHER REGISTERS SHOULD 


: 6000 TA gine, cONTENTS 
;0F REGISTER BEFORE COMMAND 
:RECEIVED DATA SAVER CONTENTS 
F REGISTER AFTER COMMAND 


“The- 
ow 
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eee Regs OO geperareees Cg rr eameremerser 
bY 











} re : I 
wes Bis D04746 Ts} -SERPOS Test FOR REO We ie 
rd ‘ . is 
ee flee Bion mH iL [Goes a7 
2507 012540 S003? oO14se4 IMP sSTSTIG OC; HF pote = 9 DON’T DO EITHER “MAKECYL” ------ 
508 HE ADDRESS PLUG TESTS 
3503 pigs 3: | 
19 912544 o00137 012610 ) IMP TST13 Ss; co ences 297 ---------------------------- } 
2311 912580 45: 
s3i 5p SRAARERAEASLERERERSAAFAALAESLARLLSSAALRATRERELAALALALSASLSLARA ALLELE 
Sic 
esis s SHRAAAAARERFREREAA LAS SAA LAASLSLELESSSSELE SEES SS SS44555655555 
ge TEST 12 MAKE CURRENT CYLINDER = 377 
+4 s SLARARASSSLEFLASRELSSLSLAFAALAFAALEFASARLA RLS SHELSLELAALLLAF LAE 
2519 012550 900004 teria: SCOPE 
2529 bigsee 912008 901906 MOV #STACK ._ el sRESET STACK 
se 12556 912737 900012 co4Ec4 MOV 813-1, 987s ‘THIS SAVES TEST NUMBER 
A 012564 OON7T37 041366 ISR PC, SCLOISK s INIT ORIVE 
312570 012777 990001 167S22 MOV BOND, IRHMR :SET DIAGNOSTIC MODE 
S25 O127S 004037 941036 ISR RO,SaMAKECYL § ;SUBROUTINE TO GIVE A SE 
:COMMAND FOLLOWED BY A INIT 
e527 ‘ : THIS SHOULD CHANGE RHCC TO 377 
2528 01260 900377 77 
2523 
2520 
g32! 012604 900137 oO12644 IMP TST14 sy SKIP NEXT “MAKECYL” ------------------------- } 
= 
5233 
sss ee eer pee te een een 
2535  STEST 13 MAKE CURRENT CYLINDER = 
Sex A ce tl EN SRR A 
012610 oosco4 44715: SCOPE 
2539 Ole6i2 012706 001090 MOV SSTACK, SP ;RESET STACK 
goto Bi26is 12737 900933 ooseo4 MOV 814-1, aaTSTNM  :THIS SAVES TEST NUMBER 
2542 012624 904737 041366 JSR PC, J8CLDISK : INIT DRIVE 
2543 912630 912777 00900! 167462 MOV 80D, JRHMR :SET DIAGNOSTIC MODE. 
erie 012636 004037 541036 ISR RO,DeMAKECYL §§ :SUBROUTINE TO GIVE A SEEK 
45 ; COMMAND FOLLOWED SY_A INIT 
eee :THIS SHOULD CHANGE RHCC TO 777 
ee o1zs42 0900777 777 
=545 
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DIRII ait 113 MAKE CURRENT CYLINDER = 777 


s LRARAERESSRARLALASSAAKAALSLASLALASRAARAERASLALELARALSLAS RAE SLASE FR 


e3 tSTEST 14 ADDRESS PLUG CHANGE ERROR 
gs :* CHECK PROPER ADDRESS PLUG FUNCTIONALITY 0 
:# Nb Staanostic HE ADDRESS PL yG OUR ISSUED 
5 :% N DIAGNO ARANTEE SORMAND Te IS STILL ACTIVE WHEN 
: 8 Sa TED, AND VERIEY ING THAT THE DRIVE GOES CFF LINE 
2550 :* THE ADDRESS PLUG IS THEN REPLACED 8 ano RETURN OF THE PROPER 
52 :* RESPONDING DRI IVE 15 RIFIED, 8 LAAs THE FACT THAT 
:% BITENTION BITS COME UP IN THE PR PROPER - LOCATION( 72777). AND THE 
:* ERROR (ACE) — RHERS S17 8 13 15 SET AS WELL AS 
= ;# eC. OFRe, ERR MCPE; VV IS RESE 000 (ORIVE RECALISRATED: 
S 
25c6 ;# IN ADDITION VERIFICATION IS ALSO MADE THAT NO OTHER DRIVE 
55: :# NUMBERS APPEAR ON THE SUSS AFTER THE PLUG IS REPLACED. (777777) 
33 “| -pviegatee-+-+-+-+juliataasinaataataaaai cinema iniataiaaiciniatataciiatiaeie 
70 12644 900004 tity S 
ae 012646 912737 000001 odle2l1e2 MOV #1,STIMES :;D0 1 ITERATION 
2s7. fy SRARSASLELEFAAAAAAELSLALA RLS FLSLSLS ALLL LALAEA LL REREAALESALLRSL DE 
2574 912654 737 OO4744 TST TeRPOG TEST F Or. 
2575 Sle660 901005 BNE 4§ : IF it 00 THIS TEST 
2s piebbe 005737 cO4746 TST aeRPOS : TEST SR MEMOREX RPO4 
e577 O12666 901002 BNE 45 :IF = 1, DO THIS TEST 
73 : IF NELTHER FLAG IS UP, ASSUME THE 
73 jORIVE IS AN ISS RPO AND SKIP TEST 
012670 900137 012656 IMP TSTiS”s ss; bi 0 NEXT TEST ---------------=-) 
258! 012674 45: 
5 fp RRELSRERSLASAAERAALELALALEL LAA LELERLAASLL RELL RELLAALALELEFLA LAIR 
2584 012674 012706 001990 MOV BSTACK, SP sRESET STACK 
36 012700 012737 909014 o046o4 MOV #14, J8tSTNM :SAVE TEST NUMBER 
2587 012706 O04737 O41366 ISR PC, ISCLDISK ;SET RI-RHCS1, R2-RHCS2 
2589 :R3-RHOS1, RY-RHER! 
| 589 GIVE RH-11 INITIALIZE 
25390 :SETUP UNIT NUMBER 
2591 012712 204737 O41446 ISR PC, 28CHECKT :CHECK OVA, RDY,MOL,DPR,DRY,VV = 
| 592 AND THAT NO StaTuS BITS ARE E stuck = 
| 2593 O12716 104400 CeE4Oe TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY oF 
a4 . THE FIRST SET OF BITS DON’T = 
| 259S 012722 900000 HALT : STOP 
Be 2 s#THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
| p599 012724 oc4724 TST JeNOPUSH :IS THIS A 220 START ? 
12730 91007 } :SKIP THIS TEST IF SO 
Pl Ol 0 oo042 S #42 :MONITOR (ACT 11) RETURN ADDRESS ? 
2602 912736 001004 BNE 1S ‘SKIP THIS TEST 
2603 912740 005737 901100 TST dasPASS :FIRST PASS ? 
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DIRIIA.PL 


Bs Bee 


eR 





012754 


0ie762 
le; 
le77 


Ole77e 


at ad tad eat tat at ad ad cad 


1 § <b b 0 b= OP B+ Be 
600-311. Lstue-O 





Seeman inbge 





2639 013042 
2640 013042 
4 13046 
“ 12050 
$4 13054 
Zoa4 
2645 Bt i19 
sole 13110 
| est 
, 2648 
| see 1311 
Boge 
: gbS2 Ol13122 
| e6$3 013130 
' g6S4 
2é5$ 013132 


a 


BgoNde 


000137 


013656 


OCO0C1 167336 


C4iS34 


013002 


004716 
013056 


167166 
043309 
010000 3902360 
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ADDRESS PLUG CHANGE ERROR 


1$: 
2s: 


;65S: 


bag: 


big 


7$: 


! KIP TEST IF NO 
yea TINUE MITA THIS TEST 
IMP TSTIS ; JUMP TO NEXT TEST ---------------- } 


:*#SET DIAGNOSTIC MODE TO ENABLE A COMMAND ACTIVE WHILE 
THE PLUG IS PULLED 
BIS 8OMO~, JRHMR ;SET UP DIAGNOSTIC MODE 


;#TAKE AN INITIAL REGISTER SNAPSHOT 


ISR RC, JeSAVER ;SAVE REGISTERS — 
RHW : RHC Re THE FIRST REGISTER SAVED 
SAVERE :3TaR NG ADDRESS OF WHERE 
HE RESIST ERS ARE SAVED 
18. !NUMBER OF REGISTERS 
;SAVED = 1 


He Fe E A COMMAND ae Me *G0’ BIT not POSITIONING COMMAND > 
:#T0 vERiFy COMMAND ASORT IF PLUG IS PULLED 


: ISSUE SOME CLOCKS 79 GET THE COMMAND STARTED 
:#(USE “SEARCH” WITH “DTETST” FLAG UP a STOP CLOCKING 7) 
TYPE 65S :;TYPE ASCIZ STRING 


4 “GET OVER THE ASCIZ 
"ASCIZ <15><12>/REMOVE “ADDRESS PLUG ON DRIVE/ 


Oy OSUNIT, -(SP) sGEr res ha NC. UNDER TEST 
TY 67$ i TYEE Asti? § RING 


QR &$ GET OVER tue Reet 
SASCIZ 7 THEN PRESS’ CONTINUE’ 


HALT ;WAIT FOR OPERATOR PLUG CHANGE 
;#CHECK THAT THE UNIT NO. UNDER TEST HAS GONE OFFLINE 
MOV DRHDST, RO ;ATTEMPT TO ADDRESS THE DRIVE 
JSR PC. ePUTREG ; TAKE REGISTER SNAPSHOTS 
BIT ned, aacse sTEST roe Non EXISTENT DRIVE 
BNE : CON F ached BIT SE re (UNIT 
IS GFF INE. 8S T SHOULD BE 
ERROR 101 UNIT D OFFLINE THEN ADDRESS 


:PLUG WAS RENO YE 
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ADDRESS PLUG CHANGE ERROR 


eres 


Hs 
~~ 


more: 


Azcind 


3 


SSSesece 
See tias 


Qo oO © 
- tap ld 
88 8 

—- 
Oo £ Tw 


AAAS A 


Pttatiateateat att at at 


SOB B80 200 DB 


RRRER RG 


ow 


turu 
“IN 
--o- 


(9 





:#NOW REPLACE THE ADDRESS PLUG 


ar (GBs GET OVER tHe Aect? 


SASCIZ <15>«12>/REPLACE ‘AgeRese PLUG ON DRIVE/ 
MOV JRUNIT, -(SP) SET THE UNE UNDER TEST 


TYE ZS is Tyee ree ie uN, 
ASCIZ 7 THEN PRESE® CONTINUE /< te> ¢ Tos 


HALT ;WAIT FOR OPERATOR PLUG REPLACEMENT 
:*#CHECK THAT THE ORIGINAL UNIT HAS COME BACK ON LINE 


6 


J PC, JEPUTREG ; TAK Nel PEGISTER SNAPSHOTS 
BIT #OPR, aeDS! TEST “OER =] 
BEQ 5 ERR “ae LD BE PRESENT 
BIT #DVA, a8cS! sERCOR THA pogyice NOW AVAILABLE 
BEQ 3g ERROR - * SHOULD = 
BIT #ORY,a8DS1 Test TH THAT ORIVE READY i$ = 
969 9g "DRY? SHOULD = 1 
BR 9$ 'A-OK: *DPR’ = 1 ‘OVA’ = 1, 8 “DRY” 
ERROR 102 UNIT Not AVAILABLE AFTER 

ADDRESS PLUG WAS REPLACED 
JmPSTSTIS.; JUMP TO NEXT TEST --------------- 
:CHANGE THE INITIAL REGISTER SNAPSHOT TO EXPECTED VALUES 
SSOP TER THE pine criance 


JSR RO, J#CHREG ;CHANGE BITS IN VED REGISTER 
RHCS1 . ;CHANGE RHCS1 REGISTER 
4 


;4 BIT/BITS TO BE CHANGED 
1 NEW VALUE OF ROY IS 1 
ROY :CHANGE ROY 811 
1 sNEM VALUE OF SC IS 1 
Sc CHANGE SC BIT 
I sNEW VALUE OF TRE IS 1 
RE 
l ast VALUE OF “AoPE IS 1 
MCPE ;CHANGE MCPE BIT 
JSR —- RO, DaCHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS! ;CHANGE RHOS1 REGISTER 
3 2 BIT/BITS 10 BE CHANGED 
1 VALUE OF ATA IS : 
ATA ECHANGE ATA 
1 ;NEW VALUE OF ERR IS 1 








C-1) 


aSeclaleerent 


tury 
ae a a 
(ofr COU SPUN 


“33 9~3~9~3 9 ~9~9~ 9-9 


SSSSRARLORA SSO Seo ee 


IIIS 
+. 


~ 
rt 





Pll 


a a 
aa 


ERs 
EN 
13419 
13414 
ES 


Slst#ee 


iii 
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;CHANGE ERR SIT 
:NEW Meg OF WV IS 0 
;CHANGE WV BIT 


i CHANGE ITS_IN aavep REGISTER 
;CHANGE RHCS2 REGISTER 


;1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF NED IS 1 

:CHANGE NED BIT 

5 ene BITS IN ae REGISTEF 
;CHANGE RHERZ REGISTER 


;1 BIT/BITS on” BE CHANGED 
NEW VALUE OF ACE IS 1 
;CHANGE ACE BIT 


QBATTENT, OSSAVERE+24 ;SET UNIT UNDER TEST ATTENTION 


;SET RHCC REGISTER IMAGE TO ALL O°S 


W REGISTER SNAPSHOT AND 
HE REGISTER CONTENTS WITH EXPECTED VALUES 


;COMPARE SAVED REGISTERS WITH 
; PRESENT VALUE 

DATA SAVED IN N rice ERE * 
TEST DATA STARTING F RHIC * 
718. ruan't8 ee TO BE RONPARED 


RETURN TO S$ ON ERR 
RETURN TO 6$ ON NO ERROR 


;ADDRESS PLUG CHANGE CAUSED SOME 
SREGISTER ERROR 

360 BACK AND CHECK THE NEXT SEGISTER 
SUNTIL ALL 18. HAVE BEEN DONE 











MAINDE 
DZRIIA 
2749 
2750 
e751 
752 
53 913460 
2755 913460 
5238 
i3¢ 
2758 
2759 
2760 
3761 
27 
e763 013464 
e764 013470 
2765 
2766 013472 
2767 013474 
2768 013476 
2769 013500 
2770 01350 
2771 013504 
2772 013506 
2773 
2774 913510 
2775 013514 
2776 
2777 (913516 
2778 013520 
2779 013522 
2780 013524 
2781 012526 
3782 
2783 913530 
2784 013534 
' 57g 
| 3786 013536 
2787 013540 
2788 913542 
2789 
2790 012544 
2791 013550 
| e792 
| 2793 913552 
2794 013554 
2795 613556 
2796 
2797 013560 
| 3798 013564 
| 8799 
| 2800 013566 
2601 013570 
| 2562 £13672 
§ 


004737 


040000 


004037 
002276 


000001 
000000 
010000 
004037 
002314 
000001 
000000 
020000 


004037 
002320 


000001 
200000 
009001 
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ADDRESS PLUG CHANGE ERROR 


041366 


O42246 


O4e245 


C42246 


O4e2e46 


042246 


$$: 
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;*NOW CLEAR OUT THE CONTROLLER AND DRIVE 


JSR 


;*CHANGE THE REGISTER SNAPSHOT TO EXPECTED VALUES AFTER THE CLEA 


JSR 
cS 


PC, asCLOISK 


RO, J#CHREG 


RO, a#CHREG 


RO, d#CHREG 


RO, J#CHREG 


RO, J#CHREG 


ee ee ee + ee Se 


SET R1- RHCS1 fiecRHcse 
R3-RHDS1 R1 

‘Give oe INT Tae 1ze 
-SETUP UNIT NUMBER 


;CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 


is BIT/BITS TO BE CHANGED 
: NEW VALUE OF SC IS Q 

; CHANGE 

; NEW Mi 3 OF ine Is C 
;CHANGE T 


NEW VALUE OF MCPE Is 9 
: CHANGE MCPE SIT 


;CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 


iS BIT/BITS A O CHANGED 


;NEW VALUE OF ATA iS 0 
CHANGE ATA 

NEW VALUE OF GAR Is 0 
:CHANGE ERR BIT 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS2 REGISTER 


;1 BIT/BITS TO BE CHANGED 
NEW VALUE OF NED Is 
CHANGE NED BIT 


;CHANGE BITS IN SAVED REGISTER 
:CHANGE RHER3 REGISTER 


il es 7 one CHANGED 
;NEW VALUE OF ACE IS 0 
; CHANGE REE B 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHMR REGISTER 


1 BIT/BITS TO BE CHANGED 
‘NEI VALUE OF DMD IS C 
CHANGE DMD BIT 
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DIRIIA.P1l T14 ADDRESS PLUG CHANGE ERROR 
2803 
2804 013574 043737 OO474O 904636 Bic DSATTENT, IUSAVERE+24 ;UNIT UNDER TEST ATTENTION BIT 
5358 :*TAKE ANOTHER REGISTER SNAPSHOT AND COMPARE SESULTS 
2808 :"WITH THE EXPECTED VALUES 
2810 
geil 013602 o04037 o42354 JSR RO, J#COMREG scones SAVED REGISTERS WITH 
2813 913606 o04812 SAVERE ; G00 DATA SAVED IN ’SAVERE’ 
2814 013610 302354 we ‘TEST DATA STARTING FROM "SHWC’ 
2815 Ol36i2 o00022 18. :18, REGISTERS TO BE COMPARED 
2816 613614 013620 10$ RETURN TO 10% ON 
e817 013616 013624 118 ‘RETURN TO 11$ ON ‘A ERROR 
2819 013820 104:09 10$: ERROR 100 sADDRESS PLUG CHANGE CAUSED SOME 
e820 013622 000207 RTS PC SINCORRECT REGISTER RESULT 
2822 013624 118: 
2823 
2824 :#(USE NED METHOD TO VERIFY 
e825 :#THAT ATTENTION BIT COMES UP IN THE PROPER LOCATION 77) 
2827 
2828 
2829 
2330 ;*SET ‘VV’ IN RHDS] AFTER RESET FROM THE RECALIBRATE 
283! :#CAUSED BY PULLING THE PLUG 
583 
2834 013624 013746 O02460 MOV D¥PKACK,-(SP)  ;GET READY TO MOVE COMMAND 
2835 913630 052716 o0000: BIS #G0, (SP) :GET READY TO SET G 
2836 F s WITHOUT INTERRUPT ENABLE 
2837 013534 012677 166440 MOV (SP)+, JRHCS1 GO WITH 
2838 -22 IN RHCS1 FOR PACK ACKNOWLEDGE 
2835 ;HITH INTERRUPT DISABLED 
284i O13640 011100 MOV JR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
este 013642 9011305 MOV IRS. RS SAVE RHDS1 DURING ABOVE OPERATION 
2844 O13644 104412 WAT :WAIT FOR VV BIT TO SET 
2845 013646 092322 RHDS1 WAIT FOR RHOS | REGISTER 
e846 013650 o00100 VV :WAIT FOR VV BIT IN RHDS1 REGISTER 
2847 913652 o00001 te sALLOM ti HCRO SECONDS 
28468 013654 00000! 1. Y MUST SET BETWEEN 
ee43 ts AND 20 MICRO SECONDS 





ee omen e+ se ee, 
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OZRIIA.PLL Tig” CHECK ALL ADDRESS PLUG ADDRESSES 
2905 013770 OO0N737 O41446 JSR PC, QWCHECKT = —_; CHECK _DVA, ROY, MOL, DPR, DRY, VV _ = 
2306 :AND THAT NiO Status BITS BRE siuck = 
907 013774 104400 O66402 TYPE —_, CPHALT ; CANNOT CONTINUE TESTING. TF ANY OF 
308 THe FIRST Ser OF BITS DON'T = 1 
303 o14C00 000000 HALT STOP 
a 
ele o14002 104400 914010 TYPE 65S j:TYPE ASCIZ STRING 
2913 014006 O00426 BR 4§ GET OVER THE ASCIZ 
914 58: ASCIZ ¢18><12>/ALL DISK’ DRIVES EXCEPTING THE UNIT UNDER’ 
e915 O14064 bag: 
2916 O14054 104490 014072 TYPE 67 s;TYPE ASCIZ STRING 
2317 014070 000417 SR aS OVER THE ASCIZ 
2318 5678: .ASCIZ <15><1a>/TeST must BE POWERED DOWN/<15>< 12> 
23:9 014130 big: : 
2939 
a 
2923 014130 013737 O04716 O04752 MOV HUNT, Q®INUNIT ;MAKE THE INITIAL UNIT NO. = “UNIT™ 








K10 































MAINDEC-11-DZRJI-A, RPOY/S’6 FUNCT. CONT. TST-PT MACY11 27(655) 30-MNAR-76 22:59 PAGE 67 SEQ 0127 
OZRIIA.P11 715 CHECK ALL ADDRESS PLUG ADDRESSES ‘ 








2925 
2326 
e3e7 


5459 ;*CHANGE ADDRESS PLUG ON THE UNIT UNDER TEST 
















14136 - 6$: 
5354 Bt royyeo «014144 TYPE 69S ;;TYPE ASCIZ STRING 
e331 o14i42 900420 BR 68$ GET OVER THE ASCIZ 

--69$:  ASCIZ <15><12>/REMOVE AbpRESS. PLUG ON DRIVE/ 

2933 014204 bas: 
2934 914204 013746 004716 MOV QKUNIT,-(SP) | ;GET THE UNIT UNDER TEST 
2935 O14210 104404 TYPOS ‘TYPE IT OUT 
2336 O14el2 104400 o14e20 TYPE 71$ 5s TYPE ASCIZ STRING 
2937 O142i6 O004e1 SR 205 *GET OVER THE ASCI 
2938 --71§: .ASCIZ / REPLACE iitTH NEXT HIGHER ADDRESS/ 
2939 014262 POs: 
2940 O14262 104400 014270 TYPE 738 5 TYPE ASCIZ STRING 
2941 O14266 000417 725 T OVER THE ASCIZ 
eaya -:79$: .ASCIZ <15)<12>/PLUG - THEN PRESS CONTINUE? 
2943 014326 325: 
en4 014326 oo0000 HALT 
eve ; #HOUSEKEEPING 
2948 014330 005927 046760 CLR asPRITEM ;CLEAR THE PREVIOUS ERROR NUMBER 
2949 014334 005237 O04716 INC aaUNIT ‘ADD ONE TO THE U 
2950 914340 042737 177770 OO4716 BIC - 81C7, MUNIT ‘TRUNCATE 10 LOW ORDER 3 BITS 










2952 014346 004737 641366 JSR PC, J#CLDISK :SET RI-RHCS1, R2-RHCS2 
2953 :R3-RHDS1 

2954 GIVE RH-11 INITIALIZE 
2955 :SETUP UNIT NUMBER 






;*ATTEMPT TO ADDRESS THE NEW UNIT NUMBER 






960 014352 017700 165726 MOV @RHDST,R ;ATTEMPT TO ADDRESS THE NEW DRIVE NO. 
961 014356 004737 043300 JSR PC SRPUTREG : TAKE REG. SNAPSHOT IN CASE OF ERROR 
2362 014362 932737 010000 002360 BIT NED, aacSe ; TEST FOR NON EXISTENT DRIVE 
2963 014370 001423 BES ;CONTINUE IF *NED’ IS NOT SET - DRIVE 





; SHO BU 
e365 014372 104102 ERROR 102 ;UNIT NOT AVAILABLE AFTER ADDRESS 
2966 UG REPLAC 


2967 014374 104400 O14402 TYPE 75$ 3; TYPE ASCIZ STRING 
2968 O14400 000407 BR 4g ‘GET OVER THE ASCIZ 
.:75$: .ASCIZ <15)<¢12>/UNIT NUMBER/ 
e970 014420 4g: 

2971 O14420 013746 004716 MOV JHUNIT, -(SP) iGET THE BAD UNIT NUMBER 









297 oiies 104404 TYPDS 
2973 O14426 104400 014434 TYPE 775 tT TYPE Asceiz STRING 
2974 014432 Odoo4de BR r+} :GET OVER THE ASCIZ 
2975 +:77$: .ASCIZ <15><larv / 

e376 014440 6S: 


coo 


ee 


| aad * } 





























014450 
2393 O0144S4 











95 014460 
36 
2397 
2338 
e399 014464 
3000 O01 
3001 
sone 144? 
14472 













pict 






SSosoaa 

+ -+ b-+ b—* b+ 6 be 

OwmecoIre--O 
ae 





718 


023737 


001233 
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CHECK ALL ADDRESS PLUG ADDRESSES 


004716 O047S2 7§: 


002460 
000001 
165614 


014510 


014612 


bist 


big 





;#CHECK IF ALL UNIT NUMBERS HAVE BEEN TRIED 


CMP 
BNE 


Q8UNIT, J#INUNIT ; HAVE AE a te ‘1s TO THE 


UNIT 
6$ NO, -DO NEXT ADDRESS PLUG 
;YES..CONTINUE WITH TESTS 


;#SET *VV’IN RHDS] AFTER RESET FROM THE RECALIBRATE 
CAUSED BY PULLING THE ADDRESS PLUGS OUT 


MOV 
BIS 


MOV 


TYPE 
BR 
-ASCIZ 
TYPE 


BR 
-ASCIZ 


DePKACK,-(SP)  ;GET READY TO MOVE COMMAND 
#G0, (SP3 ‘GET READY TO SET GO 
‘WITHOUT INTERRUPT ENABLE 
(SP)+,9RHCS1  :GO WITH 
-22 IN RHCS1 FOR PACK ACKNOWLEDGE 
;WITH INTERRUPT DISABLED 


@R1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
aR3, RS ;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR VV BIT TO SET 
WAIT FOR HOS! REGISTER 
*WAIT FOR VV BIT IN RHOS1 REGISTER 
;ALLOW 10 MICRO SECONDS 
:VV MUST SET BETWEE 
00 AND 20 MICRO SECONDS 
828 : TYPE ofeclz STRING, 
ot) (12> <15> cesar DISK DRIVES WHICH WERE POWERED UP WHEN THE PROGRAM/ 


84S 3; TYPE sacle se 


§3$ OVER 
(15) <12>/WAS STARTED MUST ae MBOWERED UP AGAIN/<15><12> 













11-DZRJI-A, RPOW/S’6 FUNCT. CONT. TST-PT 1 MACY11 27(65S) 30-MAR-76 22:59 PAGE 69 SEO 0129 
ll 715 CHECK ALL ADDRESS PLUG ADDRESSES 







. SBTTL 
-SBTTL #*#DRIVE COMMAND TESTS#* 
.S8TTL 


titeer ig NO OPERATION FUNCTION fect’ Se 
i ALL POSSIBLE REGISTERS fhe CLEARED THEN A”NOP”=0 

# IS GIVEN NO CH PPEN 

s 












O32 *% ALL POSSIBLE REGISTERS ULRE up gbbED WITH ONES THEN A “NOP” 
2033 tx IS GIVEN NO CHANGE SHOULD HAPPEN 
3035 “Tig Ot ARIE cos yates gyereneepen zane recenrceepe Eun 
3036 014664 000004 téT16: SCOPE 
3037 O14666 012706 901000 ao #STACK, SP RESET STACK’ 
3038 Ol467e 012737 O00016 oco4eo4 MOV #16, a8tSTNM ‘SAVE TEST NUMBER 
_ 3040 014700 004727 041365 ~~ ISR PC, J&CLDISK ;SET R1-RHCS1, R2-RHCS2 
3041 : R3-RHDS1 1 
3042 GIVE RH-11 INITIALIZE 
3043 :SETUP UNIT 
3044 014704 004737 O41446 ISR PC, J#CHECKT ‘CHECK DVA ROY, MOL DPR,DRY,VV = 1 
3045 “AND THAT NO StaTUS BITS ARE STUCK = 1 
014710 104400 o66402 TYPE ,CPHALT ; CANNOT The Stat TESTING IF ANY OF 
3047 THE FIRST SET OF BITS DON’T = 1 
3048 014714 900000 HALT IST OP 
3050 O14716 013777 OD2422 165354 MOV GWNOPERA, JRHCS1 ;GET READY FOR NOPERA 
3051 :NO OPERATION WITH O IN RHCS1 
305¢ 






. 2054 ;*NOW SAVE REGISTERS FOR COMPARISON AFTER NO OPERATION 








3055 

3056 014724 004037 041534 JSR RO, J#SAVER save REGISTERS 

3057 014730 002272 RHWC HWC_IS THE FIRST REGISTER SAVED 
3058 014732 OO46le SAVERE STARTING ADDRESS OF WHERE 

3059 ; THE REGISTERS ARE SAVED 

3060 014734 000022 18. NUMBER OF REGISTERS 

3061 SAV VED = 18. 







3063 014736 013777 OO4E06 165322 MOV @BRPHVEC, IRPVEC ;SET ata VECTOR ADDRESS 

3064 310 ’ ot IF ay ey IS PRESENT 

3065 79R TO ’TIME2’ A CLOCK IS NOT PRESENT 
3066 ;* TIME’ WILL ONL Y SAV 

3067 ; CURRENT CYLINDER ADDRESS 





206 SAND LOOK AHEAD REGISTERS 








ai 1 

Q1374s 

eta 

o1267° 

44 

3348 

00299 

B59001 

2039 O147 004037 
2051 

3pa8 ite 412 

0 158 ci 

3034 91500e Oo00522 

see Qi D DiSoic 

3% viSO0CE O15014 
3U37 

3098 615015 LOYCLE 

2032 O150le 00207 
310 
S377 
3255 

















Bll 
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Sn FuNeTION TES 
oosee Mwy QENOFERA,-(SP) GET READY 19 MOVE COMMAND 
ea 2 iithwout TNTERRGPT ENABLE 
168320 MOVs (SP#, IRHCS1 ITH 
:0 IN RHCS1_FOR NO-OPERATION 
;WITH INTERRUPT DISABLED 
WAT WAIT FOR ROY BIT To SET 
0S] WAIT FOR RHCS1 REGISTER 2 
WAIT FOR ROY G27. IN RHCS1 FEGISTER 
ALLOW 19 MIERO_ SECONDS 
1 :ROY SET BETWEEN 


DY 
;00 AND 20 MICRO SECONDS 


NOW COMPARE REGISTERS ta NO-OP COMMAND 
Seu TH AFTER NO-OF COMMAN 


042354 ISR RO, @aCOMREG «COMPARE SAVED REGISTERS WITH 
: PRESENT VALLE 

SAVERE ;6000 DATA VED IN *SAVERE™ 

ne Fest bata STARTING FROM RHC” 
1 :18. REGISTERS TO BE COMPARED 
is” ;RETURN TO I$ ON ERR 
es SRETURN TO 28 ON NO ERROR 
ERR: 
Ry 


s GIVING H "7 COMMAND 


eNO "REGI TERS D CHANGE 
dtm Gate Gives Reaisien 


‘ECE Bra elves REGISTER 
Reree ives SFTER ESRANS 


‘De 
og 








INDEC=11-DZRII-A, ROY 
peaya.Pit 718 
310% 
aide 
3103 a1so1s 
Bill O1S014 CON737 041366 
ui 
a3 
31iS g1s02¢ 912700 ooee72 
311g O1S084 12730 17: 
ad 
3118 015030 012730 177777 
$180 gisos4 952730 043010 
sisi 6 612730 00140 
gig3 o1So¥¥ 012730 900000 
gigs OlS0SO 012730 177777 
317 OlSOS4 912730 co0000 
$189 18060 012720177777 
313 S064 012730 17777 
3i33 015070 012730 sco900 
3134 
3135 
3136 
336 fltsre Dl iie 
3133 BIsiO8 Siiewe 
3141 015102 013700 o0474e 
3:42 915106 05012 
2143 O15110 O1e705 00010 
3144 015114 006000 
3145 O1Sli6 103002 
ai 515120 012714 177777 
| 3148 915124 g0s212 
| 314 pieiss 905305 
| 3150 918130 90137] 
| 3151 O1513e O12612 
| 3158 DI5134 Oiges4 
| 353 015136 12600 
3154 O1Si40 005720 
| Biss 
| 3156 
| 3187 ousiv@ 12720 177776 
| 3155 


2s: 


87$: 


ges; 


1-PT 
TES 


MACY11 27(655) 
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;#NOW REPEAT TEST SY MOVING IN ALL POSSIBLE ONES 


:SET RL-RHCSL R2-RHCS2 
ee ee initia 
VE re INITIALIZE 

ge TUP UNIT NUMBER 

ADDR. OF UopR OF RHWC IN RO 
‘LOAD 177777 INTO RHWC 

ame 177777 INTO RHBA 


;LOAD 43010 INTO RHCS2 
LOAD 1400 INTO RHCS1 


;LOAD 0 INTO RHER1 
;LOAD 177777 INTO RHOST 
;LOAD O INTO RHER2 
;LOAD 177777 INTO RHOF 
;LOAD 177777 INTO RHCA 
;LOAD O INTO RHER3 


;#NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


JSR PC, aacLDISK 
MOV @RHWC RO 

MOV 8177777, 3(RO)+ 
MOV 8177777 ,aiRO)+ 
BIS #42010, a(RO)+ 
MOV 81409, 3(RO}+ 
MOV #0,a(RO)+ 

MOV 8177777, a(RO)+ 
MOV #0,a(RO)+ 

MOV 8177777 ,a(RO)+ 
MOV 8177777, a(RO)+ 
MOV #0,a(RO)+ 

MOV RO,-(SP) 

MOV aR4, -(SP) 

MOV ake, -i(5SP) 

MOV JSTOTALAT,RC 

CLR aRe 

MOV 48. wRS 

ROR RO 

8C 93s 

MOV #-1,aR4 

INC aR2 

DEC ne 

BNE 873 

MOV (SP)+, Re 

MOV (SP)+, aR4 

MOV (SP)+,RO 

TST (RO)+ 

MOY BL7777E,a(RC)+ 


Oo re a ee ee em 


;LOAD 177776 INTO REMR 


eee Ret 10 REINSTATE ta LATER 


AFTER ALL ata ais HAVE ih SET 
GET DRIVES ey! 
:CLEAR RHCS2 AND CARRY 


;COUN 
;GET ait INTO CARR 
F NO NIT THIS BIT 
: MOVE TN10, ERROR REGISTER 
:T0 SET A T 
HINCRENENT AaHcs2 TO NEXT UNIT 
H IF 8 NOT DONE 


T 
STACK INTO RO 
siege OVER PHAS IN RO 












a en ee ee. ee re es ee ree 


MAINDES- 


0. 


=) 


PS 


I 


9 G9 00 09 GIG) G99 0 GI) GG) GG) 6 GI 0) GGG) GIG) GI GI GIG) GIGI FI GIGIGI GIGI GI GIGIGIGIGS ty 


RU att ttt ttt tot tet ete tet ett ot tated et etetet et atetet at +b b= b+ 0 b= bo Bo 
REV SIO IRR Lo SSS RR Lore O.003 ort 2 sro pio Pan eof ee 


Cd 
™ 


il 
il 


716 
Qo473? 
104400 


000099 
Ci3sv77 


O41 446 
C&E40z 


2422 165112 


041534 


CO4606 .65060 


002422 
6C0001 


L65056 


004750 
004722 
100000 904620 


004740 OO4636 


“DIRJI-A, RPOW/S 6 FUNCT. CONT. TST-PT MACYL1 27(655) 30-NAR-76 22:59 PAGE 72 
NO OPERATION FUNCTION TES 


S$: 


JSR PC, daCHECKT i CHECK OVA, ROY mete “tS neh Wisi 


: AND BNO THAT No Stat ARE STUCK = 1 
TYPE  ,CPHALT :CANNOT CON LINUE fee it IF ANY OF 
: THE FIRST SET OF SITS DON’T = 1 


; THE 
HALT i245 
MOV SBNOPERA, SRHCS1 ; GET P READY FOR NOPERA 

;NO OPERATION wWiTH C IN RHCSi 
:#NOW SAVE REGISTERS FOR COMPARISON AFTER A NO-OP 


. RO, J#SAVER ;SAVE REGISTERS 


RHW oe IS is FIRST REGISTER SAVED 
SAVERE 3 STARTING SS_OF WHERE 

;THE REGISTERS ARE SAVED 
18. : NUMBER “—— GISTERS 


MOV DBRPYVEC , IRPVEC i367, no VECTOR ADDRESS 
ot IF P-CLOCK IS PRESENT 
9 R 1) toed iy P-CLOCK IS NOT PRESENT 
TIME kee Y SAVE 
: CURRENT CYL INOER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV tot ae -(SP) ;GET READY TO MOVE COMMAND 

BIS #G0,(S GET READY TO SET GO 
;WITHOUT INTERRUPT ENASLE 

MOV (SP)+, JRHCS] ;G0_ WITH 

;0 IN RHCS1 FOR NO-OPERATION 

:WITH INTERRUPT DISABLED 


WAT sWAIT FOR RDY BIT TO SET 
RHCS1 “WAIT FOR RHCS1 REGISTE 
RDY ‘WAIT FOR RDY BIT IN RHCS1 REGISTER 
* “ALLOW 19 MICRO SE 
l "ROY MUST SET BETWEEN 
:00 AND 20 MICRO SECONDS 
s#CHANGE REGISTERS TO EXPECTED VALUES 
TST 3eRH70 sRUNNING ON AN RH7O ? 
BEQ NOT. SKIP NEXT 
TST JBNUNIT TE ESTING HORE THAN ONE DRIVE ? 
BNE S$ :SKIP_NEXT 0 


8I¢ BSC, ,asSAVERE+6 ;CLEAR *SC° tN RHCS1 


BIC JBATTENT, DBSAVERE +24 CLEAR APPROPIATE ATA SITS 
:FOR WORKING ORIVE IN SAVED RHAS 





SE3 C132 
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DZRIIA.P1L 716 NO OPERATION FUNCTION TEST 

14 

1S o1S264 > o42246 JSR RO, JSCHREG SAVED REGISTER 
Bi Bisses BB2az2 RHDS1 SEHANGE RROSL REGISTER 

18 915272 ;. BIT/BITS of 
1h , RA re 
3 tSe76 1008 ava !CHANGE ATA BIT 
3221 
3222 

33 ;#NOW COMPARE REGISTERS BEFORE NO-OP WITH 

34 !#AFTER NO-OP COMM 
see 
33e8 015300 904037 942354 JSR RO, JECOMREG 3¢ ONPARE SAVED REGISTERS WITH 
3228 :PRESENT VALUE 
3229 015304 o04612 SAVERE :G000 DATA SAVED IN ’SAVERE’ 
3230 915306 poe54 We TEST DATA STARTING FROM "RHWC’ 
3231 01531 6022 18. 219. REGISTERS TO BE COMPARED 
3:38 pi5zi¢ 15316 33 :RETURN TO 3$ ON ERROR 
3233 15314 015322 4g RETURN TO 4§ ON NO ERROR 
3235 O1S316 104015 3: ERROR 16 sGIVING A NO-OP COMMAND 
322 015320 o0c207 : ATS Be :CAUSED AN ERROR 
3237 :NO REGISTERS SHOULD CHANGE 
3238 : GOOD DATA GIVES REGISTER 
3229 : CONTENT FORE COMMAND 
3250 RECEIVED DATA GIVES REGISTER 
334] “CONTENTS AFTER COMMAND 
342 015322 ug 
3232 
3244 


-_— 2-e oe <20e we — mn eo ee ee eee 










nes Beast > 004604 


304737 041366 







004737 
104490 


O4 1446 
066402 




















see 
See8 215354 012700 ode272 
#63 016360 Ole730 177777 
71 15364 012730 177776 
3573 
3273 015370 730 043018 
374 0:5374 012730 001400 
# 015400 012730 909090 
ere O1SHO4 012730 177777 
337 
3280 015419 012730 oo0000 
2282 015414 912730 177777 
328, 
3284 018420 012730 177777 
3286 O1S424 2127320 00000 
3287 

| 328s 
3389 
3290 015430 O10046 
329] 915432 011446 

| 2232 015434 O1l246 

| 3394 O15436 013700 oc4742 

| 3295 o1s44e o0501e 

| 32 pisv44 912705 00010 

| 397 015450 o0¢000 

| 3298 Si5452 103002 

| 

| 


cc - r- 


RPCY’S 6. FUNCT. CONT. TST-PT 1 
‘ CLEAR 
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UE Se snenenccinmmaneenppecsoneeeetet 

:* 

:# ALL WRITE BITS OF ALL REGISTERS ARE FILLED 

:* WITH ONES EXCEPT GO,CLR, IE, PAT, MCPE, UPE 

i THEN A DRIVE CLEAR tS-6 4 

:# THEN ALL REGISTERS ARE CHECKED TO HAVE APPROPIAVE .QLUE 
+d dala --td-btaleleehatalelaheialalaiabalallelchaliaialadnbaiatabaliaiahabsiniaiainiaisinininisiniaisinininiel 


tSr1?: awe stark T STACK 
MOY 817, Sterne Pe TEST NUMBER 
ISR PC, JHCLDISK :SET RI-RHCS1, R2-RHCS2 
:RI-RHDS1, RY-RHERI 
:GIVE rity INITIALIZE 
:SETUP UNI R 
ISR PC 2eCHECKT 5 CHECK bya ROY, MOL DPR, 
:AND T eu sits af Tae “stu 21 
TYPE  ,CPHALT CANNOT. ton TRUE S Y OF 


. $THE FIRST SET OF Bits BON ns = 
HALT {STOP 


ALL WRITABLE REGISTER SITS 


MOV #RHUC Re ;ADDR. OF ADDR. OF RHWC IN RO 
MOV Meritea Q(RO)}+ LOAD 177777 INTO RHWC 

MOV #177776,a(RO)}+ ;LOAD 177776 INTO RHBA 

gis #43010,3(R0)+  ;LOAD 43010 INTO RHCS2 

MOV #1400,9(R0)+ § ;LOAD 1400 INTO RHCS1 

MOV #0, a(RO)+ ;LOAD O INTO RHERI 


8177777 ,3(RO}+ 
#0,a(RO)+ 

MOV 8177777, a(RO)+ 
MOV 8177777,2(RO)+ ;LOAD 177777 INTO RHCA 
MOV 80, 3(RO}+ ;LORD O INTO RHER3 
;*#NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


;LOAD 177777 INTO RHDST 
sLOAD C INTO RHER2 
sLOAD 177777 INTO RHOF 


MOV RO, -(SP) ;PUSH_ RO ON STACK 
MOV aR4, - (SP) ‘gave RHER1 TO oe Hal | LATER 
MOV aR2, -<5P) fat RHCS2 TO ae 
TER Rares on are At HAVE SEEN SET 
MOV JSTOTALAT,RO 
CLR dR2 iCrEaR RHCS2 PANO CARRY 
MOY #8. ,RS COUNTER 
S4$: ROR RO CET BIT INTO CAR 
BCC 85$ BRANCH IF NO iNT ON THIS SIT 





ee ee ee 
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DIRIIR.P LI T1? 
O1S4S4 O12714 


ityasaeees 


31 O1S47& 2127 
32:5 oussoz 9177 
e (igi 
saig Bieets 945635 
3315 
3316 
#12 
ig 
3315 
3320 
3353 O1SS1& 013746 
33 ois&22 6 
3305 C1SS26 012677 
3328 
3329 
3330 
3331 o1sS32 104412 
3332 O15534 0023 
3333 915536 30020 
3334 015540 900901 
3335 015542 00900! 
3336 
3337 
ae 
346 O15S44 004037 
| 3341 15559 0n2272 
> 
| 3345 BleeeG 404055 
| Be Bless aes 
Sauz bieeed Aoeoa? 
3347 015570 737 
| 334g 
| 3349 gi5576 605737 
| 3350 O1St02 00102) 
| 35) 
| 332 
i 
| 


DRIVE CLEAR 


WWieee 


177776 


164626 
004806 


092430 
o0C0o 


1S4S46 


041270 


041270 


004616 
004716 
004750 


DO4ES4 
164559 


OO46 16 


ass: 


MUV 8-1, aR4 ;MOVE_ INTO ERROR REGISTER 


:f0 
INC aR herent abese TO NEXT UNIT 
uv 
BNE : T DONE 
fey eB ye, are eae Bucs 
MOV (5P)4'aR4 !REINSTATE RHERI 
MOV (5P)4°RO BOP STACK INTO RO 
Ts? (RO)+ AET T OVER PHAS IN RO 


MOV #177776,a(RO)+ ;LOAD 177776 INTO RHMR 


MOV @RHCC, JBSAVERE+42 SAVE RHCC ih Sere TABLE 


MOV DBRPSVEC, IRPVEC SCT ROY 04 VEC S 
TIME * IF P-CLOCK IS PRESENT __ 
TO *TIME2* IF P-CLOCK IS NOT PRESENT 
50K WILL ONLY SA 
:C T CYLINDER ADDRESS 


; AND LOOK AHEAD REGISTERS 


MOV QS0CLEAR,-(SP) ;SET READY TO OVE COMMAND 
BIS #60, (SP) ‘CET READY TO SET GO 
sHETHOUT INTERRUPT ENABLE 


MOV (SP)+,9RHCS1  :GO0 WITH 

19 IN RHCS1 FOR DRIVE CLEAR 

ITH INTERRUPT DISABLED 

WAT :WAIT FOR RDY BIT TO ser 
RHCS1 WAIT FOR RHCS1 REGIST 
DY :WAIT FOR ROY BIT IN RACs REGISTER 
1 sALLOW J MICRO SECONDS 
1 "ROY MUS BET 


SET BETWEEN 
;00 AND 20 MICRO SECONDS 
;#NOW LOAD *SAVERE* REGISTER SNAPSHOT WITH EXPECTED VALUES 


JSR RO, J#F ILLRE ;MOV_177777 INTO SAVED RHWC 

RHWC ; SAVED REGISTER TO CHANGE 

77777 spare 

SR RC, JUFILLRE 177776 INTO SAVED RHBA 

RHBA ' CAVED REGISTER TO CHANGE 

177776 :DATA 

LR aseSAVERE+4 CLEAR LOCATION FOR RHCS2 

81S JHUNIT, JBSAVERE+4; PUT UNIT # BACK IN THE SAVED RHCS2 
TST ZeRH70 ;RUNNING ON AN PH7O0 CONTROLLER ” 

BNE 8s IF SO SKIP NEXT RHL1 CODE 








—ee . pee oreo 





,- 
Y 








DZRIIA.PLI DRIVE ¢ 
3353 015804 904037 O42246 
3354 Bizeia 02276 

F) 
3356 015612 000003 
3357 O15€14 000091 
3358 015616 090100 
3359 015620 9000001 
3360 015622 000010 
3361 015524 90000) 
$36e O1Sbe6 001000 
2364 015630 204037 O42e46 
3365 015534 002300 
3366 
3367 015636 900001 
3268 015640 000001 
3369 015642 190000 
3370 O15644 9000416 
3371 
$372 O1SENE 
3374 15646 OO4O37 odeeHe 
3375 Ol o0z27& 
3376 
3377 15854 o00002 
3378 Ol 090001 
2379 015660 000100 
3380 6! 009001 
3381 915564 000010 
3382 015665 005737 o04722 
3383 015672 901003 
3384 015674 042737 100000 
| 3385 015702 
| 3386 018702 904037 041279 
| 3588 18719 Go0a00 
35 1891 004037 041270 
2390 O15716 902 
3331 015720 017437 
3392 015722 004037 041270 
3333 015726 0023 
3394 015730 900000 
3395 015732 904037 041270 
| 3296 015736 002310 
/ 3397 915740 116009 
3398 015742 004037 041270 
3393 915746 00231 
| 3400 915750 0017 
| 3401 015752 004037 041270 
| 3402 015756 002314 
| 3403 015760 000000 
| #404 015762 O1374e o0H74e 
3405 C1576 043716 004740 


004620 


gs: 


11-DERJI=“A, RPOWS.6 FUNCT. CONT. TST-PT 1 
l T1? ‘LEAR 


JSR 
RHCS2 
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RO, J#CHREG 


RO, J#CHREG 


98 


RO, d#CHREG 


QaNUNIT 
#SC, J#SAVERE +6 
RO, J¥FILLRE 


RO, J#F ILLRE 
RO, J#F ILLRE 
RO, J#F ILLRE 
RO, d#F ILLRE 
RO, J#F ILLRE 


Q#TOTALAT, -(SP) 
OSATTENT, (SP) 
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SHANE aa IN SAVED REGISTER 
;CHANGE RHCSe REGISTER 


3 BIT/BITS TO BE CHANGED 
NEW VALUE OF IR IS 1 


; CHANG 

NEW VALUE OF BAI IS 1 
: CHANGE 

;NEW VALUE OF MXF IS 1 
:CHANGE MXF BIT 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


;1 BIT/BITS TO BE CHANGED 
:N UE OF SC IS 1 


SC BIT 
SKIP NEXT RH70 CODE 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS2 REGISTER 


32 pte fo ‘ CHANGED 
:NEW VALUE OF IR IS 1 

:C HANGE 

feo VALUE OF i Is 1 


i TeSTING | THAN ONE DRIVE ? 


;SKIP_NEXT IF 
:CLEAR "SC’ IF NOT 


;MOV_O INTO SAVED RHER! 
ssavED REGISTER TO CHANGE 


:MOV 17437 INTO SAVED RHDST 
; SAVE REGISTER TO CHANGE 


V0 INTO SAVED RHER2 
‘SRveD REGISTER TO CHANGE 


TA 
:MOV 116000 INTO SAVED RHOF 
; SAVED REGISTER TO CHANGE 


nov 1777 INTO SAVED RHCA 
i SAVED REGISTER TO CHANGZ 


NOV QO INTO SAVED RHER3 
ae REGISTER TO CHANGE 


!GET ALL BITS OF DRIVE & PRESENT 
‘CLEAR WORKING DRIVE BIT 
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DIRIIA.PL1 Ti? DRIVE CLEAR 

3407 Q1S772 012637 004636 MOV (SP}+ QU AVERES2H - MOVE THIS INTO RHAS POSITION 

O18776 OO4037 O41270 JSR ,OeFILLR MOV 400 INTO SAVED RHMR 

3409 918002 292320 RHMR BOVE REGISTER TO CHANGE 

3419 916004 oc0400 400 

3412 O16006 33: 

3413 016006 004037 041270 JSR RO, HF ILLRE ;MOV_10700 INTO SAVED RHDS1 

3414 O16012 002322 RHDS1 ; SAVED REGISTER TO CHANGE 

$418 016014 010760 10700 :DATA 

3417 O1G01& 013737 O0240& OO4E44 4S: MOV DaDT, AUSAVERE+32 MOVE DRIVE TYPE INTO RHOT 

3418 -POSITION OF SAVRE TABLE 

3419 016924 013737 o02410 o04646 MOV JaSN, IRSAVERE+34 -MOVE SERIAL NUMBER INTO RHSN 

$420 sPOSITION OF SAVERE TABLE 

3422 016032 004037 041270 JSR RO, OUP ILLRE ;MOV 0 INTO SAVED RHEC1 

3423 018036 002330 RHEC] ; SAVED REGISTER TO CHANGE 

S424 016040 900000 9 

3425 Ole042 004027 041270 ISR RO, JaF ILLRE inOV % INTO SAVED RHEC2 

3426 D16046 002332 RHE C2 i SAVED REGISTER TO CHANGE 

3428 

3429 O160S2 004037 o42246 ISR RO, J#CHREG :CHANGE BITS IN SAVED REGISTER 

$430 O16056 o02300 RHCS1 :CHANGE RHCS1 REGISTER 

3432 916080 000001 1 1 BIT/BITS To. BE CHANGED 

3433 016062 990001 1 ‘NEW VALUE OF PAR IS 1 

3424 S1S064 go0d10 PAR : CHANGE PAR R BIT 

3436 ;*NOW THAT SAVERE TABLE HAS BEEN LOADED WITH 

3437 :#EXPECTED VALUES, THE REGISTERS WILL BE COMPARED 

3438 WITH SAVERE TABLE 








a4 O16066 o04037 0O42354 JSR RO, 2UCOMREG ; COMPARE acts REGISTERS WITH 
3443 018072 004612 SAVERE ;G00D DA DATA SAVED IN *SAVERE’ 
2444 O16074 002354 We :TEST DATA STARTING FROM "RHWC’ 
3445 016076 oc0022 18. 319, REGIST ERS TO BE COMPARED 
3446 016100 016104 § :RETURN TC S$ ON ERROR 
ste 016102 16110 6S ‘RETURN TO 6$ ON NO ERROR 
3449 016104 194017 Sf: ERROR 17 DRIVE agtEAr COMMAND 
3450 Oi6106 000207 RTS Po :GAVE AN ERROR 

; 3451 :G00D DATA HAS WHAT SHOULD 
3452 :BE IN REGISTER AFTER A 
3453 :DRIVE CLEAR 
3454 :RECEIVED DATA HAS WHAT 
3455 : THE FREGISTER ACTUALLY 

| 3456 : CONTAINED 

| 3457 oieii0 b$: 

3459 

| 

ee ee ae tencrned 
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MAINDEC=11-DERII=A, RPO4’S.6 FUNCT. CONT. TST-PT 1 
ZRIIA.PL1 Thi DRIVE CLEAR 








450 oan ie st Mabie OMEEE ToT oc eens ce 
3461 :¥TEST 20 READ-IN-PRESET 
abe i IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT SE PERFORMED 
3464 1% IF THE PROGRAM WORKS UNDER ACT-11 MONITOR 
suse :# THEN THIS TEST IS NOT PERFCRMED 
3467 :% IF NO ACT-11 MONITOR IS PRESENT THEN 
3463 :% THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
subs i ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 
? :% 
7 1% THIS TESTS THE PDau--IN-PRESET COMMAND 
473 1% FIRST THE DRIVE Is “PUWERED DOWN AND UP IN ORDER TO 
474 x RESET VV-BIT #6 IN RHDS1 
75 1% THEN ALL WRITE BITS OF ALL REGISTERS ARE FILLED 
3476 1% WITH ONES EXCEPT GO,CLR, IE,PAT,M 
3477 % ATA FOR DRIVE UNDER TEST IS MADE b 
3473 7% 
34793 sf 
3489 x THEN A READ-IN-PRESET COMMAND = 20 IS GIVEN 
3481 ‘x THEN ALL REGISTERS ARE TESTED 
342 x THE FOLLOWING SHOULD BE THE REGISTER CONTENTS 
3483 2 RHCA = 0, RHOST = 0, RHOF SHOULD HAVE 
3484 % FMT22 = 6, ECI = 0, HCI = 0, RHDS1 SHOULD HAVE VV = 
3485 1 ALL OTHER REGISTERS SHOULD BE UNCHANGED 








3487 “oo gg hoo ears gpanmentens: paige megaman me come ist pecta 

3488 015119 O0C004 +720: SCOPE ) 
3489 Oislle Ole70s 901500 Roy #STACK, SP ;RESET STA 

$430 016118 Ol2737 O00020 coxse4 MOV 820, ds TSTNM : SAVE Test NUMBER 

3492 016124 004737 041366 JSR PC, J#CLDISK ;SET RI-RHCS1, feckHcse 

3493 :R3-RHDS1 

3494 GIVE so INITIALIZE 

3495 :SETUP UNIT NUMBER 









2496 
3497 :¥THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
3499 016130 905737 o04724 TST J#NOPUSH :IS THIS A 220 START? 

3500 616134 001007 BNE 1$ SKIP THIS TEST IF SO 

3501 016136 095737 ooD04e TST ae4e : MONIT OR (ACT 11) RETURN ADDRESS ? 
3502 016142 001004 BNE 1§ :SKIP THIS TEST 

3503 916144 005737 001100 TST aeSPASS :FIRST PASS ? 

3504 016159 001001 BNE 1$ :SKIP THIS TEST IF 

3506 O16ise oo00402 BR 23 CONTINUE WITH THIS. TEST 

3507 016154 18: 

3508 016154 000137 O166S4 JMP TST21_ =; JUMP TO NEXT TEST ---------------- 
2509 O16160 2S: 

2510 O16160 104400 O16i66 TYPE 65S s;TYPE ASCIZ STRING 

3611 O16164 000407 BR 645 ‘CET OVER THE ASCIZ 

3512 ::65%: .ASCIZ <15><12>/STOP ortie 
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OZRIIA.P11 T24 READ-IN-PRESET 









ote 016204 64§: 

ei 018204 013746 OO4716 MOV JSUNIT, -(SP) ‘=F UNIT UNDER TEST 

z218 016210 iC4404 TYPOS ; TYPE IT OUT 

3517 Olgele 104400 001223 TYPE $CRLF 

3518 016216 032713 010000 3$: BIT NOL, ARB ;MOL_WILL BE HIGH TILL STOF IS HIT 
a2) Olbe2e SNE WAIT TILL STOP IS HIT 

3$21 016224 104400 016232 TYPE 67$ ;: TYPE ASCIZ STRING 

3$22 916230 900406 6$ ;;GET OVER THE ASCIZ 

3$23 bgp’ -ASCIZ /START DRIVE/ 

3525 






3$e6 O16246 Oh eon 004716 MOV Q#UNIT,-(SP) ;GET UNIT UNDER TEST 
3Se7 O1625e 104404 TYPOS ; TYPE IT 
s258 016254 1o44o0 001223 TYPE ,» SCRLF 







3530 016260 032713 010000 4$: BIT aMOL , aR3 ;MOL_WILL SE LOW TILL FILE READY 
3$31 O16e64 001775 BEQ 4$ ;WAIT TILL FILE READY 














3532 

3533 O16266 004737 041366 JSR PC, J#CLDISK ;SET RI-RHCS1, R2-RHCS2 

3534 :R3-RHDS1, RY-RHER] 

3535 :GIVE RH LL INITIALIZE 

3536 ;SETU UP U ER 

3537 O1S2e72 004737 O41424 ISR PC, JHCHECK : CHECK AT BVA RDY,MOL,DPR,DRY = 

3538 :AND THAT NO STATUS BITS ARE eTuck = 
3539 016276 104400 Ob&640e2 TYPE ,CPHALT ; CANNOT CONTINUE TESTS IF THEY AREN’ 1 
3540 016302 dooc00 HALT 

3541 918304 012700 002272 MOV #RHWC , RO ADDR. OF ADDR. OF RHWC IN RO 





3544 ;#NOW INITIALIZE ALL THE REGISTERS 
3546 016310 912730 177777 MOV #177777, a(RO}+ ;LOAD 177777 INTO RHWC 
3548 016314 012730 177777 MOV #177777,a(RO)+ ;LOAD 177777 INTO RHBA 















3549 
2559 016320 052730 943010 BIS #43010, a(RO)+ sLOAD 43010 INTO RHCSe 
3551 O163e4% 012730 001400 MOV #1400, 2(RO)+ ;LOAD 1400 INTO RHCS1 






3553 016330 012730 090000 MoV #0, 9(RO)+ LOAD O INTO RHERL 
3555 016334 012730 177777 MOY -#177777,a(RO)+ ;LOAD 177777 INTO RHOST 
3557 O16340 012730 o00000 MOV #0, 2(RO)+ ;LOAD O INTO RHER2 
3559 016344 012730 177777 MOV «-#177777,a(RO)+ ;LOAD 177777 INTO RHOF H 
























sep} 016350 012730 177777 MOV #177777,3(RO)+ ;LOAD 177777 INTO RHCA 
3563 016354 012730 000090 MOV #0,0(RO)+ ;LOAD 0 INTO RHERS 






;#NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 







SEQ C140 





meets | ieee” RPO4/S 6 FUNCT. CONT. TST-PT 1 
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DZRJIA.P1I1 Tb READ-IN-PRESET 





MACY11 27(655) 















3567 016360 o10046 MOV RO, -(SP) 
16362 Ot 146 MOV RY, -(SP) ey cS 3 RE ‘sia reo 
3569 18364 Olle MOV R2,-(5P) 19 a REI 
3571 016266 013790 004742 MOV JBTOTALAT, RO CET. BRIvES APR eSENT 
3572 Olb37e GOSo1e CLR aRe :CL EAR RHCS2 AND CARRY 
3573 016374 012705 oo0010 MOV #8. ,RS 
3574 016400 006000 88$: ROR RO :GET BIT INTO 
3575 016402 103002 BCC 895 ‘BRANCH IF NO rh ON THIS BIT 
3526 O16404 012714 177777 MOV #-1,9R4 sOVE INTO. ERROR REGISTER 
35 O16419 905212 89$: INC aRe ‘INCREMENT RHCS2 TO NEXT UNIT 
35 16412 005305 DEC RS ; COUNT 
3580 016414 001371 BNE 88S ‘BRANCH IF 8 NOT DONE 
«3581 O1641S 012612 MOV (SP)+, Re sREINSTATE RHCS2 
3582 016420 012614 MOV (SP)+;aR4 sREINSTA TE RHERI 
3583 O164e2 012600 MOV (SP)+'RO :-POP STACK INTO RO 
3584 0i64e4 005720 TST (RO}+ i aET T OVER PHAS IN RO 
35 





3887 016426 012730 177776 MOV #177776,d(RO)+ ;LOAD 177776 INTO RHMR 








3590 016432 013777 OO474O 163656 MOV Q#ATTENT,@RHAS ;CLEAR WORKING DRIVE ’ATA’ 
3591 O1S440 013777 O024%6e 163632 MOV JHREADIN, JRHCS1 ; GET READY FO ADIN 
3592 ;READ IN WITH 20 IN RHCS1 







534 
3595 ;#NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 















3897 Ol6446 004037 041534 JSR RO, J#SAVER ; SAVE oe 
3598 O164Se 002272 RHWC sRHWC_IS THE FIRST peciaie SAVED 
3599 Oi64S4 O04S1e SAVERE STARTING ADDRESS OF WHERE 
OC THE REGISTERS ARE 
3601 O1645& 000022 18. :NUMBER OF REGISTERS 
Rate ;SAVED = 18. 
2604 O16460 013777 OO4606 163600 MOV O#RPYVEC,ARPVEC ;SET RPOY VECTOR ADDRESS 
3605 ;T0 ro rte IF P-CLOCK IS PRESENT 
3606 ;OR TO oe IF P-CLOCK IS NOT PRESENT 
3607 ;* TIME’ WILL ONLY SAV 
3608 : CURRENT CYLINDER ADDRESS 
at SAND LOOK AHEAD REGISTERS 







3611 016466 005737 004750 TST 2#RH70 ;RUNNING ON AN RH70 CONTROLLER ? 
sole 016472 001411 BEQ 7g :SKIP NEXT FOR RH70 IF NOT 
2614 016474 013746 ocOe46e MOV DBREADIN,-(SP) ;GET READY 19 MOVE COMMAND 
3615 O16500 052716 oo0000! BIS #60, (SP) GET READY 
3616 : WITHOUT INTERBUPT ENABLE 
3617 O16504 012677 163570 MOV (SP)+, RHCS1 369. H 
3618 IN RHCSi FOR READ IN 
13 shit INTERRUPT DISABLED - 
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DZRIIA.P11 T2b READ-IN-PRESET 

3621 O16519 1 011100 MOV dR1, RO SAVE RHCS1 DURING ABOVE OPERATION 

2 O16Sl Br Las MOV IRB; RS SAVE RHDS1 DURING ABOVE OPERATION 

be 016514 000406 BR 9 SKIP NEXT FOR R 

3625 O1b516 7$: 

apse O1E516 013746 002462 MOV QBREADIN,-(SP) ;GET READY TO MOVE COMMAND 

3608 Ol652e OS2716 000101 BIS #GO'IE, (SP) ‘GET READY TO SET ’GO’ AND 

‘ENABLE INTERRUPT 
012677 163546 Mov (SP) +, IRHCS1 369. WITH 


IN RHCS1 FOR READ IN 
shite INTERRUPT ENABLED 









Statins 
Seno ey 
is 


3636 016532 104412 WAT ;WAIT FOR VV BIT TO SET 







3637 016534 O023ee RHDSL WAIT FOR RHDS1 REGISTER 
16536 000100 r ite FOR VV BIT_IN Rane REGISTER 






o00co! ° SET THEE 
3641 : ‘00 AND 20 MICRO SECONDS 














eis ;#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
3645S 018544 004037 041270 JSR RO, J#F ILLRE ;MOV O INTO SAVED RHCA 
3646 QO16550 002312 RHCA saaved REGISTER TO CHANGE 
3647 0165Se 000000 Lt) 

3648 016554 004037 041270 JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHDST 
3649 016560 002304 RHDST ; SAVED REGISTER TO CHANGE 
eg 016562 :DAT 

3652 016564 004037 042246 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
ty 016570 002310 *  RHOF ;CHANGE RHOF REGISTER 
3655 016572 000003 3 33 BIT/BITS TO BE CHANGED 
3656 016574 000000 0 ;NEW VALUE OF FMTee IS 9 
3657 016576 010000 FMT2e ter FMTee BIT 

2658 016600 900000 Q ;NEW VALUE OF ae Is 0 
3659 O1660e 004000 ECI ;CHANGE ECI BIT 

3660 016604 000000 0 NEW VALUE OF HCI IS 0 
Fad! 016606 002 HCI . SCHANGE HCI BIT 

3663 016610 004037 O42246 JSR RO, J#CHREG ;CHANGE BITS It! SAVED REGISTER 
ae Oibbi4 002322 RHDS! ;CHANGE RHDS1 REGISTER 
3666 016616 000001 1 31 BIT/BITS TO BE CHANGED 
3667 016620 000001 ——— ;NEW VALUE OF VV IS 1 
Pe Oibbee 000100 WV ;CHANGE VV 

3670 ;*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE 
3671 ;*THE EXPECTED VALUE AFTER A READ-IN COMMAND 

367e . ;*COMPARISONS ARE MADE 






th et ote RPO4/5 6 FUNCT. om TST-PT 1 


004037 042354 


att tat tatat 
BIRR Lui 


012727 177777 O46760 65: 


JSR RO, J#COMREG 


Ris Pe 


MOV #-1,d8PRITEM 


MACY11 27(65S) 
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; COMPARE ay REGISTERS WITH 
sBRESENT WY 


DATA SAVE RE’ 
; TEST DATA STaRTING FROM * RHWC’ 
328. REGIST a an COMPARED 
;RETURN TO S$ ON ERROR 
sRETURN TO &$ ON RO ERROR 
;READ IN COMMAND GAVE AN é 
j ERROR 
;G00D0 DATA HAS WHAT SHOULD 
;BE_IN REGISTER AFTER A 
;READ-IN COMMAND 


; RECEIVED DATA HAS WHAT 
‘THE REGISTER ACTUALLY CONTAINED 
:THE FOLLOWING SHOULD 

!BE THE REGISTER CONTENTS 
*RHCA=0, RHDST = 0 

; RHOF _SHOULO HAVE FMT22 = 6, 


PRHOS1 SHOULD HAVE WV = 1 
sBLL OTHER BITS SHOULD 
:CLEAR PREVIOUS ITEM NUMBER 





MOINDEC-11-D 
DIRIIS. ELI 
438 
2°20 
3:93 
Saxe 
Og 
3735 
3705 
370 
3.28 
3758 
3708 
3915 
ail 
at 
$13 
371s 
371 
=35 
37:8 
718 
3720 
372: 
3722 J1ss54 
rea =OLS6Se 
3724 dibébe 
3725 
3726 CLSé7O 
3727 
3728 
3723 
730 O16674 
3731 
37322 916700 
| 273s O18704 
3724 Si&706 
| 3735 
Soe 
| 273? 
| 3739 
| 2733 C1s712 
740 
| 3741 OG71E 
| 374. 
| 3743 O16722 
| 37H4 SIS7ZE 
| 3745 
| 3746 O16722 
i 3747 
| 3742 016736 
1 3749 
| 3756 o1e742 
| 3751 
3752 S1E746 
| 


Jt mat RFOY $6 


ted 


eco504 


OCOS04 


1e706 
ALEs33 


0047737 


912730 
012739 


052730 
012730 


012730 
012730 
012730 
012730 


cimnet 


a BA CONT. TST-PT 1 


RERD-IN-PRESET 


001909 
CO0S21 


C41366 


O414E4 
066402 
00e272 


177777 
177777 


043010 
091499 


000005 
177777 
ocococ 
177777 


g04604 
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CO gt awenaaeng otk cee ceca es tent tit: 
:#TEST 21 READ-IN-PRESET 


Oe ee ee eee ee ee ee oe 


#8121 


TS TEST IS THE SAME AS THE PREVIOUS Led EXCEPT 
IT DGES NOT TEST THE SETTING OF V 


TEST IS HERE BECAUSE IF ACT-11 poate TS PRESENT 
res VIOUS TEST WILL NOT BE PERFORMED 


HAT 
THIS 
THEN 
THIS HE READ-IN-PRESET COMMAND 
aL S.0F ALL REGISTERS ARE FILLED 
PT cO.cLR. 1E.PAT M 


T 
C 
& UNDER TESt I MADE = Ae Re 
I 
I 


~IN-PRESET COMMAND = 20 IS GIVEN 
GISTERS ARE TESTED 
NG SHOULD BSE THE REGISTER CONTENTS 


RHCA = 0 RHOS = aout 
FMTz2 = 4, ECI RHDS1 SHOULD HAVE VV = 
ALL OTHER * REGISTERS Siduro One UNCHANGED 


t-te ++ aaa eatatasaaremaaaiaeatrcama tartan enenainiiaeniniati 
SCOPE 


MOV sSTACK, SP ;RESET_ STACK 


MOV 821, a8tSTNM :SAVE TEST NUMBER 
ISR Po, JeCLDISK :SET RI-RHCS!, R2-RHCS2 
R3-RHDS! 1 
:G1VE an INET aL IZE 
:SETUP UN 


: CHECK WAT DvVA Roy, MOL.DPR,DRY = 
THAT NO STATUS BITS ARE Stuck” = 
s CANNOT CONTINUE YEste IF THEY AREN® 


SADOR. OF ADDR. OF RHWC IN RO 


JSR PC, J@CHECK 
TYPE , CPHALT 
MOV BRHWC RO 


;*#INITIALIZE ALL THE REGISTERS 
MOV #177777, 9(RO)+ LORD 177777 INTO RHWC 
MOV 8177777,a9(RO)+ ;LOAD 177777 INTO RHSA 


ais 843010,3(R0)+  ;LOAD 43010 INTO RHCS2 
MOV #1400,9(R0}+ :LOAD 1400 INTO RHCSi 


MOV 80, a(RO)+ ;LOAD O INTO RHER! 
MOV 8177777, a(RO)}+ ;LORD 177777 INTO RHOST 
MOV #0, a(RO)+ ;LOAD O INTO RHER2 
MOV 8177777, 9(RO)* sLOAD 177777 INTO RHOF 


ee a en ee eee eee 


SES 


C143 
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3753 
3754 O167Se Ole? re res MOV 8177777,9(RO)* ;LOAD 177777 INTO RHCA 
en 0167S6 Ole? 909000 MOV #0, 3(RO)+ ;LORD 9 INTO RHER3 


3758 Cls762 Ole7320 177777 MOV #-1,9(RO)+ :CLEAR ALL BITS OF RHAS 
? 177775 MOV #177776, a(RO)+ +$LOAD 177775 INTO RHMR 









3: D1S77e Sis77? OO474O 163316 MOV JBATTENT, DRHAS CLEAR WORKING paINe *ATA’ 
3763 017000 Ol37r? O0e462 ib3e7e MOV DBREADIN, MRHCS1 ;GET READY FOR READIN 
2754 READ IN WITH 20 IN RHCS1 




















$8 
3782 017008 
rae® ai caie 
7?i = Q17014 
avr 
2773 O17D1s 
3774 
3775 


















3783 017026 
3784 017032 
3785 
37 & 037034 
78? 937040 
73& 
3? S17544 
2730 
3751 
3732 
2733 917050 
94 17052 


37 
hes 017054 
37397 017056 


2799 917056 
2800 917062 


280} 
3555 017066 


2806 017072 


cOooe2 


013777 


o4i534 


OS4E0S 


004759 
002462 
C0000) 
163220 


002462 


‘C00101 


s£3206 


1§324C 


98: 


ids: 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 


JSR. 
RHYL 
SAVER 


ig. 


MOV 


TST 
BEQ 


MOV 


BIS 


MOV 


MOV 
MOV 
BR 


MOV 
BIs 


MOV 


o, ssSAVER 


JBRPYVEC, SRPVEC 


3eRH70 

33 

JBREADIN, -(SP) 
#G0, (SP) 


(SP)+, SRHCS1 


JR1.RO 
JR3,RS 
10$ 


DBREADIN, -(SP) 
aGcrie, (SP) 


(SP)+, JRHCS! 








;SAVE REGISTERS 
sRHMC | IS _ THE Bace G hart My SAVED 
ARTING ADDR mao WHERE 
Me RUGER OF REG ae BRE SAVED 
ERS 


; SAVED 5 


oer, oo VECTOR ADDRESS 

;TO *TIMEL’ IF P-CLOCK iS P 
‘OR TO *TIMEe’ IF P-CLOCK I 
;" TIME’ WILL ONLY SAV E 
:CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


;RUNNING ON AN RH70 CONTROLLER ” 
SKIP NEXT IF NOT 


GET READY TO MOVE | COMMAND 
;GET READY Ec 
att INTERRUPT” ENABLE 


be N RHCS1 FOR READ IN 
bite INTERRUPT DISABLED 


;SAVE RHCS1 OURING ABOVE QFERATION 
;SAVE RHOS] DURING ASOVE OPERATION 
SKIP NEXT RHI1 CODE 


;GET READY TO MOVE ae 
iE READY TO SET *GO* AND 
Awe INTERRUPT 


Lay 
ees IN RHCS! FOR READ IN 
:WITH INTERRUPT ENABLED 











38 
38SS 017292 104020 
38SE 017204 COdeC?7 


' UNCT. CON 
: N-PRESET 
3807 
$908 017072 104412 
ay te bee 

«iU 
sb REE Baa 
321 
3814 
a: 
3817 917104 OO04937 041279 
2818 912119 32312 
3819 Ol71i2 900009 
3820 Gicin 037 041279 
335 17120 3 
3555 Ol7l2e 
3824 917124 O0% N4224¢ 
sues 017130 002310 
3827 917132 000003 
3828 917134 909006 
38239 O17136 019060 
3331 bisiue po4d00 
3832 9517144 900000 
3833 C17146 o02000 
3835 917150 904037 oO4224¢ 
32 017154 OO02e322 
3838 17156 oo0001 
28339 Si7162 99099: 
384 017162 900108 
| 3841 
cen) 
| 3548 
2844 
iE 
| cat C1I7184 SO4037 O4e254 
| 3848 017179 ! 
| g850 Oi71 002354 
| 


ss: 
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WAT ;WAIT FOR ROY BIT TO SET 
RHCS! :WAIT y Eo Be arcs ie ISTER 
ROY ATOM A Cane REGISTER 
; rl Drier 
AND 20 MICRO SECONDS 
:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, d#F ILLRE V0 INTO SAVED RHCA 
RHCA ‘SAVED REGISTER TO CHANGE 


a) 
aeCst RO, IBF ILLRE hid a He ane 


SR RO, JBCHREG He BITS IN SAVED REGISTER 
RHOF :¢ RHOF REGISTER 
3 ‘3 BIT/BITS TO ooe CHANGED 
i] a OF FMT2e IS 0 
PMT2e2 SC RANGE F MTee BIT 
Bay NEW VALUE OF ECI IS 0 
C 
CG “NEW beg OF HCI IS 0 
HCI ;CHANGE HCI SIT 
JSR RC, JBCHREG ; CHANGE BITS IN SAVED REGISTER 
RHOS1 ;CHANGE RHOS! REGISTER 


1 31 BIT/BITS TO yor CHANGED 
I > NEW Mae OF WV IS i 

VV ;CHANGE VV BIT 

gc THAT SAVERE TASLE my SAVED neatsTers HAVE 


THE EXP EcTEeo VALUE AF A RERD- IN CO 
: SCOMPERISONS ARE MADE 


JSR RO, 28COMRES ‘cores SAVED REGISTERS WITH 
;PRES VALUE 


SAVERE :G000 DATA anveD IN it ons 

We TEST DATA STARTING FROM ‘RWC’ 
18. 318. Se StSTERs an" E COMPARED 
S$ RETURN TO S$ ON ERROR 

6$ ;RETURN TO. 6$ ON NO ERROR 
ERROR 20 ;READ-IN COMMAND GAVE AN 

RTS PC : ERROR 


;GO0D DATA HAS WHAT SHOULD 
3 AN pattie AFTER A 


MMAND 
RECEIVED DATA HAS WHAT 











MAINOES=3 
DSRIIA.F 12 


330) 


“DORII-8, RPCY S & FUNCT. CONT. TST-PT 1 


Tés RESD-IN-PRESET 


&3: 
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iT REGIS 157eR CTY ACTUALLY CONTAINE 
e THe RFCiStER “conten S 
sRHOF FSO. HAVE FMT22 = 9, 
mos] § Hou AF WV = 

a, 


L CTHER S SHOULD 
BE UNCHANGED 












~ 


+0 -e— O-+-20-2 





tal 


aroges 
12706 
012737 


000777 
000137 


Ole73? 


oo4744 


Olveb2 


001003 
000022 


041366 
900091 
041036 


001009 
009023 


041366 
009003 
04103 


JT-A, RPO4 SG FUNCT. CONT. TST-PT 1 
READ-IN- 


PRESET 


004854 


1630S¢ 





oT ar. han 1 Se hn en 


gerPOs 


BR 8s 
7$: JMP 2800G 


9$: 
5p FRRRERRELARARERAAAAREFLSLARLERELKRALALRE RA SEREAALALLAELAALE SFL LAS 


A IGS 
* 


E CURRENT CYLINDE 
55 dalek $-4-4-5-llelalalalelalalaelelaiatellaialeehaiaioioeleiaieileisleileisieieiieisieleleieisleleieieleielel 


tét22: SCOPE 
MOV BSTACK, SP 
MOV 823-1, 8TSTNM 


ISR PC, daCLDISK 
MOV sOMD, SRHMR 
JSR RO, JAMAKECYL, 
IMP Dar ISH 


DG: 


iteet 23° MAKE CURRENT CYLINDER © 7? ee 

STE ST 2 MAKE CURRENT CYLINDER = 377 

+ II I oR nl OLS BEE D RTA 
: COPE 


#4725 
MOV BSTACK, SP 
MOY 824-1, JTSTNM 


JSR PC, J#CLDISK 
MOV 8O"0, JRHIMR 
ISR RO, SRrAKECYL 


377 


= me ae ee oe +e ee 


MACY11 27(655) 
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HP's Oy TREAT DRIVE, 6s ay poy 


RPO6 - DO NE 
D0 SECOND FOLLOWING EMAKECL™ 





cL” 














;RESET STACK 
THIS SAVES TEST NUMBER 


; INIT DRIVE 

;SET DIAGNOSTIC Oe 

; SUBROUTINE TO GIVE A SEEK 
: COMMAND FOLLOWED BY A ENE 










;DON*T D0 NEXT “MAKECL™ 


;RESET STA 
: THIS saves. TEST NUMBER 


; INIT DRIVE 
;SET DIAGNOSTIC MODE 

; SUBROUTINE TD GIVE A eet 
;COMMAND FOLLOWED SY_A ANT 
:THIS SHOULD CHANGE RHCC 7 





MAINDES-11-DORII <a 


DIRIIA.PLL 123 
318 
$1 
9:39 oO1731&s 
3320 
3932! 
332 
332 
3324 
33 
3526 
2327 
3328 
2$e3 017316 o00004 
3330 Bicase Eg 
33931 017324 912737 
3932 
2933 017332 O0%737 
3924 
2935 
3936 
sane 0i733&6 O0727 
S233 017342 104400 
3941 917346 900000 
3342 017350 Oie700 
3343 17354 O12730 
3944 
3345 017360 912730 
ag4s 
3347 017364 052730 
2948 017370 012730 
3349 
2958 917274 012730 
3951 
33952 017400 012730 
i; 2953 
! §9954 O17404 012730 
3955 
3955 17410 012730 
3957 
3958 017414 912730 
3333 
2960 8137428 8:2728 
961 
2362 
33963 
S364 017424 10046 
33965 0174 Ol1446E 
ser 917430 Olle46 
2368 017432 013700 
Si7426 o0S0le 


tu 
wo 
o 
WD 


001000 
009024 
041366 


O4L446 
osevioz 
O02e7e 
177777 
177776 


000010 
001400 


conooc 
177777 
ococo0 
177777 
177777 


ANnANANn 
See 


004742 


OO4E 


3 


RPC4-5°S FUNCT. CONT. TST-PT 1 
MAKE CURRENT CYLINDER = 377 


4 
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FISH: 
£  RRSARAAARAAAESSAAALAAAALAKALA LAL ALAAARA AAA RAR ES LALLA SSLAFALFS 
:#TEST 24 RECALIBRATE COMMAND 
;# ALL POSSIBLE REGISTERS ARE FILLED WITH ONES 
:* THEN A RECALIBRATE = & COMMAND IS GIVEN 
:* NO REGISTERS SHOULD CHANGE EXCEPT RHCC = 0 
s ERERLARASALARASALE SHALL AAAFSAAA REAL FLARARESERSLA FAA PRE LFRALL FALE 
+éT24: SCOPE 
#STACK, SP :RESET STACK 
MOV 8c4, a8 tSTNM :SAVE TEST NUMBER 
ISR PC, BCLDISK ;SET RI-RHCSi, R2-RHCS2 
R3-RHDS1, RY-RHER 
:GIVE an INITIALIZE 
:SETUP UNIT 
ISR PC, IBCHECKT s CHECK DVA, RDY BOL DPR, DRY, ¥ 


D THAT NO Status BIts ate sTucK = 
SARWNOT CONTINUE TESTING IF OF 
:THE FIRST SET OF BITS DON’ ta 


#RHWC RO DOR. OF ADDR. OF RHWC IN RO 
MOV 8177777, a(RO)+ :LOAD 177777 INTO RHWC 


MOV #177776,3(RO}+ ;LOAD 177776 INTO RHBA 


BIS #019, 3(RO)+ sLOAD O10 INTO RHCS2 
Moy #1400,3(R0)+  :LOAD 1400 INTO RHCS1 


MOV #0,3(RO)+ ;LOAD © INTO RHER! 

MOV 8177777, ¢RO)+ ;LOAD 177777 INTO RHDST 
MOV #80, 3(RO)+ ;LOAD O INTO RHER2 

MOV 8177777, a(RO)+ ;LOAD 177777 INTO RHOF 
MOV 8177777,9(RO)+ ;LOAD 177777 INTO RHCA 
Mov #0, 3(RO}+ ;LOAD O INTO RHER3 
;#NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
MOV RO, -(SP) ;;PUSH RO ON STACK 

MOV 3R4, -(SP) tSaVE RHERI TO REINSTATE LATER 
MOV aRe, - (SP) : REINSTATED 


;RFTER AL 
MOV QsTOTALAT,RO :GET prea Pee ENT 
CLR dRe :CLEAR RHCS2 ano CARRY 


TYPE . CPHALT 


1 




























cRIIA.P 


ging 


017470 


017472 


O17476, 


017524 
017530 


017534 


017540 
017542 


Te4 
012705 
006000 


103002 
012714 


004927 
002272 
004512 
o00dee 


013777 


013746 
052716 


012677 


099010 


Sen deeded 
li tcad 


177776 


002426 


041534 


004606 


002426 
000191 


162540 


i a ZRIT-A, RPOW/S’6 FUNCT. CONT. TST-PT 1 
RECALIBRATE COMMAND 


84s: 


sss: 
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MOV #8. ,RS ; COUNTER 

ROR RO GET BIT_INTO CARR 

BCC 9S$ ; BRA NCH IF NO UNIT. ON THIS BIT 
MOV #-1,aR4 


3 OVE inte 9 eee REGISTER 


0 SET 
INC aRe t INCREMENT RHCS2 TO NEXT UNIT 
NEC RS : COUNT : 
BNE 84S *BRANCH IF 8 NOT DONE 
MOV (SP)+, aR2 *REINSTATE RHCS2 
MOY (SP)+'9R4 ;REINSTATE RHERL 
MOV (SP )+, RO :-POP STACK INTO RO 
TST (RO)+ :GET OVER PHAS IN RO 


MOV #1777°6,a(RO)+ ;LOAD 177776 INTO RHMR 


MOV JBRECALI,@RHCS1 ;GET READY FOR RECALI 


;RECALIBRATE WITH & IN RHCS1 


;#NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE 7 
ISR RO, 2SAVER : SAVE REGISTERS 


RHWC HWC IS THE FIRST itt Li SAVED 
SAVERE STARTING ADDRESS OF WHERE 

; THE REGISTERS ARE SAV NED 
18. ; NUMBE 


R /—— ERS 


V 1 
MOV MBRPYVEC IRPVEC ; SET, RPOY VECTOR ADDRESS 


ONLY SAV F 
CURRENT CYLINDER ADDRESS 
.}RND LOOK AHEAD REGISTERS 


MOV DBRECALI,-(SP) ;GET READY TO MOVE COMMAND 
BIS aGO!TE, (SP) ;GET READY TO SET *GO’ AND 
ENABLE INTERRUPT 
MOV (SP)+,@dRHCS1 360 WITH 
;6_IN RHCS1 FOR RECALIBRATE 
WITH INTERRUPT ENABLED 
;SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS! DURING ABOVE OPERATION 


MOV dR1,RO 
MOV 3R3,RS 


WAT ;WAIT FOR DRY BIT TO SET 

RHOS1 :WAIT FOR pod REGISTER 

ORY WAIT FOR DRY BIT IN RHDS1 REGISTER 
31999 ALLOW 319990 ER see ONDS 


24001. :DRY MUST SET B 
:79980 AND EtOn0C WBTCRO SECONDS 


; COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN : 
;#RO AND RS IMMEDIATELY AFTER GO | 
























DZAJIA.P1L 


oOo 
4 


Patty Maat 


Sz 


rere 


St! 
iit tat 


017740 


013746 


1OsOs1 


012746 
011637 
2605 


0 
116377 
053737 


004037 
0 


004037 


002426 


Boaae 
teat 


700083 
001124 


001126 
004600 


030500 
901124 


001126 
084600 


041270 


041270 


004740 
041270 


041270 


942354 


004760 


004636 


MATNDEC=11-DZRJI-A, RPO4-5’6 FUNCT. CONT. TST-PT 1 
Te4 RECALIBRATE COMMAND 


893: 


83$: 
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MOV DHRECALT,-(SP) ,SAVE COMMA 

He go tE!RDY, (SP) pit DVAIGO!IE!RDY 
THAN ONE UNI 

BEQ BRANCH ONLY ONE UNIT 

MOV as :GET CS 

SIC are : ae TMPY iK EP IE BIT 

BIC CLEAR 3 IN GOOD DATA 

BIS HE (SP (SP) : GET 

BIS #SC, (SP) SET SC ih RHCS1 

MOV (SP), de$GDDAT  ;SAVE FOR PRINTOU 


CMP (SP)+,RO ; DURING ABOVE QPERATION ONLY DVA!GO! IE! RDY 


“AND COMMAND SHOULD 
BEQ ge ‘BRANCH IF GOOD 
MOV RO, a#SBDDAT ‘BAD DATA 
MOV Ri, a#REGADR ‘FAILING REGISTER RHCS 
ERROR 21 ;DUR ING ABOVE OPERATION ONL 
MMAND AND DVATGG! IE'RDY SHOULD BE SET 
MOV aMOl DPR! VV!PIP, isp) SAVE ITS SET DURING OPERATION IN RHDS! 
MOV (SP), J8#SGDDAT : SAVE FOR PRI 
CMP (5P)4+,R5 URING ABOVE NOPERATION ONLY MOL!DPR!VV!PIP 
CH HOULD BE SET 
BEQ 90$ ; BRANCH | IF 6000 
MOV RS, J#SBDDAT DAT 
MOV 3; J#REGADR FAILING. REGISTER RHDS1 
ERROR BS. ABOVE OPERATION ONLY 


URING 
‘MOL! DPR!VV!PIP SHOULD BE SET 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHCC 

ane :BOVED REGISTER TO CHANGE 
JSR RO, J#F ILLRE MOV 116377 INTO SAVED RHOF 
RHOF ; SAVED REGISTER TO CHANGE 


H 
116377 :DATA 





BIS JBATTENT, JHSAVERE+24  § ;SET APPROPRIATE *ATA’ BITS 
FOR WORKING DRIVE IN 
AVED RHAS LOACTION 
JSR: RO, d8FILLRE : MOV 104206 INTO HOR VED RHCS1! 
RHCS1 sSBVED REGISTER TO CHANGE 
ISR RO, JHF ILLRE :MOV 110700 INTO SAVED RHDS! 
ROS i SAVED REGISTER TO CHANGE 


 #NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 


JSR RO, J#COMREG ;COMPARE SAVED REGISTERS WITH 



















MAINDEC-1L1-DZRJI-A, RPOY/S’6 FUNCT. CONT. TST-PT 1 
IA.Pl1 24 RECALIBRATE COMMAND 


SAVERE 
WC 
18. 
“18 
23 
1$: ERROR 64 
RTS PC 


a ee ee +e ee ee 


MACY11 27(655) 
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;PRESENT VALUE 
:GO0D DATA SAVED IN ’SAVERE’ 


; TEST DATA STARTING FROM "RHWC’ 


18; i TO Be a 
: RETURN 

;RETURN TO 25 ON NG “PRROR 

AR CERROR = COMMAND CAUSED 
6008 edly GIVES WHAT SHOULD 


: RECEIVED DATA GIVES WHAT WAS 
;THERE AFTER COMMAND 












eS ee RPO4’S“& FUNCT. CONT. TST-PT 1 


DZRIIA.P11 


4107 017776 
4108 20000 
020004 


Q 
4132 O2eCOb4 


4135 920070 


005737 
0Ci401 

0492 
000137 


012737 
004737 
012777 
004037 
000777 
000137 


012737 
004737 


012777 
004037 


000377 


RECALISRATE COMMAND 


oo4744 


020036 


001006 
0000eS 


01366 
000001 
941036 


020072 


001009 
000026 


041366 
00009: 
041036 
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{ RERAHRALE RAE L ERA E HER AL LEER REALE EAA RELA RLA RR AALE EARL LERELERAES 
TST 


33: JMP 
ot . 


d#RPOS 


4 
aBCAT 


TEST FOR RPOG DRIVE 

IF = 0, TREAT DRIVE AS _AN RPOY 
‘TREAT AS RPOG - DO NEXT "MAKECL™ 
‘DO SECOND FOLLOWING SMAKECI™ 


§: 
fj RERRRAE RARER RELA RE AA EK AEEE LL AE KL ERR AELER ERE LR ELEL EERE RRELEEE 


1a asa ae I gm aera arnaemccemnaaten 
iT MAKE CURRENT CYLINDER = 


T 25 
ii 


004504 MOV 


162274 MOV 


CAT: 


#STACK, SP 
#26-1, 8TSTNM 


PC eer. Drx 


#DMD, JRH 
RO, ORMAKECYL 


d#BIRD 


Sa emmnegen ee grammer se 


;RESET STA 
: THIS SAVES “Test NUMBER 


; INIT DRIVE 

SET DIAGNOSTIC MODE 
;SUBROUTINE TO GIVE *. SEEK 

; COMMAND FOLLOWED BY A INIT 

; THIS SHOULD CHANGE RHCC TO 777 


;DON’T DO NEXT “MAKECL™ 


ee ee 
MAKE CURRENT CYLINDER = 377 


STE 
+éT26: 
MOV 
004604 MOV 
JSR 
162234 MOV 
ISR 


377 





eSTA 
ae KPT STNM 


PC, J#CLDISK 
#DMD, JRHMR 
RO, JAMAKECYL 


A En Be aL a Et 
COPE 


;RESET STACK 
;THIS SAVES TEST NUMBER 


; INIT DRIVE 

:SET DIAGNOSTIC MODE 

: SUBROUTINE TO GIVE ‘. SEEK 
:COMMAND FOLLOWED BY A INIT 
:THIS SHOULD CHANGE RHCC TO 377 






SES O1Se 














NAINDEC=11-O2RJ1-8 RPOW/S& FUNCT. CONT. TST-PT 1 
DZRJIA.P T26 MAKE CURRENT CYLINDER = 377 
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BIRD: 
414] $ © SLAREREAHRAAH AERA RHA KALA LE RA RAL AS RA LL KA RLA LAA AKERS LALA SALA SFKFE FE 
die :&TEST 27 RECALIBRATE COMMAND 
4iSe ;# ALL POSSIBLE REGISTERS ARE FILLED WITH 0 
414s :% THEN A RECALIBRATE =& COMMAND IS GIVEN 





4147 ;# NO REGISTERS SHOULD CHANGE EXCEPT RHCC=0 








414 © = RELLLKAAAE LAA RAALE RA LALA AAAS ELLA AALA SLA AAA ALAA LAE RAZA LL AAA AARLES 
4156 o20072 oD0004 +6127: SCOPE 

4151 020074 Ole70& 001000 MOV #STACK, SP sRESET STACK 

4152 620100 O12737 000027 cOYEDY MOV #27, J8tSTNM ‘SAVE TEST NUMBER 












4153 

4154 020106 004737 041366 ISR PC, J#CLDISK ;SET RI-RHCS1, R2-RHCS2 

415s *R3-RHOS1, RY-RHERI 

4156 GIVE RH-11 INITIALIZE 

4157 i :SETUP UNIT NUMBER 

4158 O20112 004737 O41446 JSR PC, JHCHECKT ; CHECK pve RDY MOL , DPR, DRY 

4159 :AND THAT NO StaTuS BITS abe stuck = 1 
4160 O20116 104400 os6402 TYPE —_, CPHALT CoN, CONTIRUE THRs tine F ANY OF 
4161 THE FIRST SET OF BITS Bote T=1 
4162 920122 op0000 HALT TOP 

4163 020124 Oi2700 o0e272 MOV #RHWC , RO peg OF ADDR OF RHWC IN RO 









4165 020130 012730 000000 MOV #0,0(RO)+ ;LOAD O INTO RHWC 
4167 020134 9012730 O0CO00 MOV #0,9(RO)+ ;LOAD 0 INTO RHBA 















4168 
4169 020140 052730 000900 BIS #0,9(RO)+ ;LOAD O INTO RHCS2 
aise 020144 Q1e730 000000 MOV #0; 9(RO)+ ;LOAD O INTO RHCS1 









4172 020150 012730 000000 MOV #0, a(RO)+ ;LOAD 9 INTO RHER1 
4174 020154 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHDST 
4176 020160 012730 o00000 MOV #0,a(RO)+ ;LOAD O INTO RHER2 
4178 O20i64 9012730 9o00000 MOV #0, a(RO)+ ;LOAD O INTO RHOF 
4180 020170 012730 Oo00000 MOV #0,a(RO)+ ;LOAD O INTO RHCA 
4182 020174 012730 000000 MOV #0, a(RO)+ ;LOAD O INTO RHER3 


























4184 O20200 012730 177777 MOV #-1,9(RO)+ ;CLEAR ALL BITS OF RHAS 
ater 020204 012730 000000 MOV #0, 3(RO)+ LOAD O INTO RHMR 
4187 020210 013777 OO02426 i6e0be MOV Q#RECALI,@RHCS1 ;GET READY FOR RECALI 





s;RECALIBRATE WITH & IN RHCS1 
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DZRJIIA Te? RECALIBRATE COMMAND 
aig ;#NOW SAVE REGISTERS FOR COMPARISON OFTER RECALIBRATE 
4} 7? 041534 SR RO,asSAVER _—S_; SAVE GIST E 
qi34 pe9si8 Bp 3935 bP *RHWC I ae Rast REGISTER SAVED 
4195 O20224 O04612 x SAVERE STARTING ABORESS OF WHER 
4136 THE REGISTERS ARE SAVED 
4137 020226 o0002e2 18. sNUMBER OF REGISTERS 
4199 020230 013777 OO4606 162030 MOV JRPYVEC, IRPVEC err R RPOY VECTOR ADDRESS 
4200 , :TO ‘TINE IF P-CLOCK IS PRESENT 
4201 508 TO, *TIME2’ IF P-CLOCK IS NOT PRESENT 
4202 | WILL ONLY SAVE 
4203 CURRENT YLINDER ADDRESS 
4204 “AND LOOK AHEAD REGISTERS 
4206 020236 013746 02426 MOV DBRECALI,-(SP) ;GET READY TO MOVE COMMAND 
407 O2de42 052716 OO0101 BIS #GO'TE, (SP) :GET READY TO SET °GO’ AND 
4208 j ENABLE INTERRUPT 
‘4209 020246 012677 162026 MOV (SP)+, JRHCS1 ;60 WITH 
4219 6 IN RHCS1 FOR RECAL IBRATE 
421] ‘WITH INTERRUPT 
4212 2025 011100 MOV 3R1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
Hels 020254 011305 MOV JR3,RS SAVE RHDS1 DURING ABOVE OPERATION 
4215 04412 ;WAIT FOR DRY BIT I SET 
4216 ana 2322 FHS! sHATT FOR RHOSI RE cTER 
4217 Qe0eb2 O00200 DRY sHAl Y BIT ff Sees! REGISTER 
4218 O20264 076377 31999. ries 319990 MICRO SECONDS 
4219 20266 701 24001: ‘ORY MUST SET BETWEEN 
4220 79980 AND S&0000 MICRO SECONDS 






42ee ; #COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
mie ;*RO AND RS IMMEDIATELY AFTER GO 




















4225 020270 013746 o02426 MOV DHRECALI,.-(SP) ;SAVE COMMAND 
4226 020274 052716 O04301 BIS #OVA!GO! TE#RDY, (SP INCLUDE DVvA!GO! IE!ROY 

4227 020300 011637 001124 MOV (SP). a#$GDDAT ° :SAVE FOR PRIN 

4228 020304 022600 CMP (3P)4°RO : DURING REDE N OPERATION ONLY DVA!GO!IE!RDY 

42209 “AND COMMAND SHOULD BE SET 

4230 001405 BEQ 88S *BRANCH IF GOOD 

4231 029310 010037 001126 MOV RO, J#SBODAT BAD DATA 

4232 020314 010137 OO4600 MOV R1; J#REGADR “FAILING REGISTER RHCSI 

4233 020 104021 ERROR 21 DURING ABOVE OPERA TION ONL 

4234 :CO DVA'GO! TE!RDY by OULD BE SET 

4235 020322 01274 030500 88S: MOV #MOL!DPR'VV!PIP,-(SP) :SAVE BITS SET DURING OPERATION IN RHDS1 
4236 020326 011637 001124 MOV (SP) aaSGDDAT ';SAVE FOR PRINTOUT 

4237 020332 022605 CMP (8p)4 Re s DURING ABOVE OPERATION ONLY MOL!DPR!VV!PIP 
4239 020334 001405 BEQ 30$ ; BRANCH IF 3500 

4240 020336 010537 o01i2e6 MOV RS, J#SBDDAT TA 

4241 020342 010337 OO4600 MOV R3; J#REGADR FAILING REGISTER ‘RHDS1 

4242 Q20346 104063 ERROR 63. ‘DURING ABOVE OPERATION ONLY 

4e43 ‘MOL'DPR!VV!PIP SHOULD BE SET 









NAINDEC-11-DZRJI“A, RPO4/S.6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-MAR-76 22:59 PAGE 95 SEQ O1S5 
DZRJIA.Pil Te: RECALIBRATE COMMAND 







sg ;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4 020380 004037 041270 JSR RO, d#F ILLRE ;MOV 0 INTO SAVED RHCC 
mm 0354 002334 RHCC j SAVED REGISTER TO CHANGE 
4e49 020256 000000 0 ‘DATA 






4250 

4251 020360 053737 OO0474O O04E36 81S QBATTENT, J#SAVERE+24 ;SET APPROPRIATE ‘ATA’ BITS 
42Se :FOR WORKING DRIVE IN 

: 2 ‘SAVED RHAS LOACTION 






4eSS 020366 004037 O4ee46 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
4256 020372 302322 RHDS1 ;CHANGE RHDS1 REGISTER 















42S 

4258 620374 000001 1 ;1 BIT/BITS TO ann CHANGED 
4eS9 020376 000001 i NEW VALUE OF ATA IS i 

art 020400 100000 ATA CHANGE ATA 

uBee 020402 O04037 O42246 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
sre 020406 002300 RHCS1 ;CHANGE RHCS1 REGISTER 

4265 020410 000001 1 Pa ;1 BIT/BITS TO BE CHANGED 
4e66 OeO4le 900001 1 ;NEW VALUE OF SC IS 1 

usee 020414 100000 sc ;CHANGE SC 

4269 ;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 






4e72 O20416 004037 042354 JSR RO, J#COMREG REGENT ti REGISTERS WITH 







4274 Oe042e O0461e2 SAVERE ;G00D DATA SAVED IN *SAVERE’ 
4275 020424 002354 Wo ; TEST DATA STARTING gel *RHWC’ 
4276 Oe04e& 000022 18. :18. REGISTERS TO Cs — ARED 
4277 020430 O20434 1$ RETURN TO I$ ON 

4278 Oc043e Oe0440 es RETURN TO 2S ON RO” PRROR 







4279 

4280 020434 104064 1S: ERROR 64 ;RECAL IBRATE COMMAND CAUSED 
4281 020436 000207 RTS PC 

4282 ‘00D DATA GIVES WHAT SHOULD BE 
4283 ; THERE 






4284 RECEIVED DATA GIVES WHAT WAS 
_ 4e8S Geg44o es: : THERE AFTER A RECALIBRATE 





Be ee eae ee ee eee nee Oe cee oe ee 
Rue ett tat et ete JI) 


fw > -* b= b ~* 6 2 = oh 


4. AS: 
fo 5 
QU OWONMUILUiUe-OW 


+ 
ball 


& 


IGIG) 
we 


Sit 
gn 


-=ll- 
Fi 


CECHHt 


c2cs04 


020510 


029514 
020520 


Jess2e 


oe 
ta 

Ps) 
4 
a 4 
Sb 





9soors 


wee 


08S737 


+ mf 


000137 


Cle706 
012737 


£54737 


004737 


104409 
dc0ccs 


O1774E 


004724 
d0c042 


001103 


021754 


091000 
002030 


041356 


O4 L446 
ObE4+02 


161574 


FUNCT. CONT. 1ST-PT I 
RDS mia 


ee 


mw ee 


MACY 27(655) 
TALS ge aig i ght nt tanith nari iarngeiseinenanee: 
UNLOAD COMMAND 

IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT SE PERFORMED 


IF _THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF _NO_ACT-11 MONITOR IS ae Seay 
T THIS TEST I 
ON SUBSEQUEN 


passes 


ALL POSSIBLE REGISTERS ARE FILLED WITH ONES 
THEN AN UNLOAD COMMAND =2 IS GIVEN 
NO Regist ERS SHOULD 

THE ORIVE 


s#THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE Ck 
338 THIS A sep TF 30, ? 


rum 
ae4e 

1$ 
aeSPass 
1$ 

2s 


TST31_ sl; 


sSTACK, SP 
#30, a8tSTNM 


PC, J#CLDOISK 


PC, J8CHECKT 
, CPHALT 


:*THIS SETTING OF VV 
;*#WHERE UNLOAD TAKES 


@RHOS1, (SP) 


mm ee ee ee 
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rest 1S NOT Sone 


CHANGE EXCE 
THEN 1S POWERED UP BY OPERA 
AND A PACK ACKNOWLEDGE COMMAND (ALREADY TESTED) 
SETS VV-IN RHDS1 


-SERERLERELREPEELAEE LEER EEPEALELEREEAESRESSEEESEEREERSE LEER SEES SE 
tér30: COPE 


oe THIS TEST_IF NOT 
;CONTINUE WITH THIS TEST 


JUMP TO NEXT TEST 


'SAVE TEST NUMBER 
: SET RL-RHCSL feastese 
iSTve RH 11 WINIT TAL IZE 
Set bia (BOY FOL MOL DPR DRY, V 


s CANNOT LoNTIRUE TESTING IF. nity “St 
;THE FIRST SET OF BITS DON'T 


ONLY 
FFECT AND CYCLE UP SRINGS VV DOWN 


:PUSH RHOS1 ONTO STACK 
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DZRIIA. 734 UNLOAD COMMAND 

4341 020526 O42716 187677 Bic #167677, (SP) CLEAR EVERYTHING EXCEPT VV AND MOL 

434 perose ee 66 810100 CMP BVVIMOL; (SP 34 see BND NOL st! 

Sed es (GOD cco fe thes CO Bi 

4345 peeeus Agate OR ty iif oveR zara 

4346 -:65$: .ASCIZ 18) «12> /GET ordi“ feags COADED Teh HIT “CONTINUE” / 

4347 020624 £4: 

4348 020604 104409 020632 TYPE &7$ :3 TYPE ASCIZ STRING 

4343 020630 OOc4e4 Es bes ‘GET OVER THE ASCI 

4350 6:57§: -ASCIZ (15)<12>/IF ALREABY LOADED THEN HiT “CONTINUE” 

4351 920702 663: 

4352 20752 200000 HALT sWAIT FOR CONTINUE 


4355 O20704 OO4T37T 041366 ISR PC, SeCLDISK ;SET RI-RHCS1, R2-RHCS2 

4356 !R3-RHOS1, R4Y-RHE 

4357 : GIVE Reed INITIALIZE 

4358 :SETUP UNIT NUMBER 

4359 020710 004737 241424 ISR PC, JBCHECK CHECK T THAT DVA, RDY.MOL, DPR 1 
4369 T NO STATUS BITS ARES Suck’ s l 
4361 O207145 104400 d26402 TYPE - ,CPHALT ROR CONTINUE y20%8 IF THEY AREN'T 
436¢ 020725 oeo086 HALT . : STOP 


4364 ;#SET VV IN RHOS1 WITH PACK ACKNOWLEDGE 


4367 Ce0?2e O13746 c0e460 


MOV DaPKACK,-(SF) GET READY 19 MOVE _ comma 

4368 C2072 o5271£ 0000! BIS #60, (SP3 :GET READY TO SET G 

4363 ‘WITHOUT INTERRUPT SP NABLE 

4370 020732 012877 161342 MOV (SP) +, IRHCS! :G0_WITH 

437! *.32 IN RHCS1 FOR PACK ACKNOWLEDGE 
#372 sHITH INTERRUPT DISABLED. 


| 4376 9209736 104412 WAT sWAIT FOR vv BIT TO SET 

| 4377 920740 002322 RHDS 1 :WAIT FOR RHDS! REGISTER 
4378 O207¥2 500100 WW SWAIT FOR VV BIT IN RHOS! REGISTER 
4375 O20744 900001 1. :ALLOW 10 MICRO SECONCS 
4380 20746 90000: 1: ¥ MUST SET BETWEEN 
1382 109 AND 20 MICRO SECONDS 

| 4383 020750 5: 

| 4384 020750 004737 cHI4HE ISR =—- PC, ABCHECKT HECK OVA, ROY. MOL. DPR 
4385 920754 900240 NOP ‘EHEC Hat ALL OTHER B 

| 4386 02075 dod240 NOP SUNLTKE THE OTHER STATUS 

| 4387 920760 o0d240 NOP ;THERE IS_NO HAL 

| Hee USED IN THE MIDDLE OF A Si! 
oa 

| $320 ce07s2 c1e700 ocee7e MOV BRHWC, RO ;ADDR. OF ADDR OF RWC IN 

| 398 ;#LORD ALL POSSIBLE REGISTERS WITH ONES 

| 

| 

i 





020776 


021952 


021006 


Ji-8, RPOWS & FUNCT. CONT. TST-PT | 


““+34 UNLOAD COMMAND 


MACYL1 27(655) 


8177777, a(RO}+ 
8177777, 3(RO)+ 


#10,a(RO)+ 


#1400, 3(R0i+ 
80, a(RO)+ 
8177777 di RO)+ 
#0, 3(RO)+ 
8177777, a(RO)+ 
8177777 ,aiROie 


#0,9(RO)+ 
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;LOAD 177777 INTO RHWC 
;LOAD 177777 INTO RHBA 


;LOAD 10 INTO RHCS2 


;LOAD i400 INTO RHCSI1 
;L0AD 0 INTO RHER) 
;LOAD 177777 INTO RHOST 
;LOAD DO INTO RHERZ 
3LOAD 177777 INTO RHOF 
sLOACD 177777 INTO RHCA 


;LORO C INTO RHERS 


;#NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


Q2°30 rere MOV 
Ole7s0  eerrr MOV 
OSe7s& 900018 61S 
Jie730 003400 MOV 
Ole73 O0080C MOV 
O1e730 70777 MOW 
Cie720 coccct MOV 
Oi2730 177777 MOV 
012730 17°777 MCW 
Sle730 s02080 MOV 
J10046 MOV 
011446 MOV 
011246 MOV 
013700 Od0474e MOV 
005912 CLR 
012705 000019 MOV 
006000 318: ROR 
103002 BCC 
012714 177777 MOV 
O0S2le2 328: INC 
005305 DEC 


ene ee ene 


RO, -(SP) 
3R4, -(SP) 
ake; -( SP) 
JeTOTALAT, RO 
aRe2 


#8. ,R5 
RO 


3e$ 
#-1,aR4 


ake 
RS 


-PUSH RO ON STACK 
:40VE RHER] TO REINSTATE LATER 

: SAVE RHCSe 19 BE REINSTATED 
‘AFTER ALL ATA BITS HAVE BEEN SET 
GET DRIVES PRESENT 

: CLEAR nie AND CARRY 


; COU 

Rey “ar? INTO CAR 

;BRANCH IF Le NTT oN THIS Bi7 
sNOVE INTO ERROR REGISTER 


: INCREMENT RHCS2 TO NEXT UNIT 
3U 


SES 0158 
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DZRIIA.PL! 736 UNLOAD COMM 


22 Bie BL Bi sae RSE um 
oa Bins Se ee ye 
me 51188 ee Wey ROS OVER PHAS IN’ Ra 


4458 S2ll04 Ol2730 177776 MOV #177776, 3(RO)* ;LOAD 177776 INTO RHMR 


s460 
4461 022230 13777 O0e4e4 161162 MOV QSUNLOAD, @RHCS1 ;GET READY FOR UNLOAD 
4462 UNLOAD WITH 2 IN RHCS! 


4465 ;#NOW SAVE REGISTERS FOR COMPARISON AFTER UNLOAD 


4456 

4467 921116 904037 041534 JSR RO, d#SAVER 5 gave REGISTERS 

S468 Q2ll2ee 02272 RHWC C IS THE FIRST Peat U ig SAVED 
4469 021124 OO04ble SAVERE OAT ING ADDRESS OF WHERE 

4479 THE REGISTERS ARE CavEn 

4472 021126 900021 1?. sNUMBER OF REGISTERS 

mat + OAVED = 17. 

4474 D2:130 O13777 OO46f& 161130 MOV DBRPYVEC , DRPVEC : SET, oe VECTOR ADDRES 

4475 :TO *TIMEL’ ZF Becrock: is PRESENT 

447, OR TO 'TIME2’ IF P-CLOCK IS NOT PRESENT 
4477 *TIME’ WIL. ONLY SAV 

4479 CURRENT CY_INDER ADDRESS = 
4479 s;AND LOOK AXEAD REGISTERS 


497 :00 AND 20 MICRO SECONDS 


4482 DE1136 019745 902424 Moy DAUNLQRD, (SP) GET READY TO MOVE COMMAND 
4483 Gell42 OSE716 00000: SIS G0, (SP) ;GET READY T 
4434 sMITHOUT INTERRUPT ENRGLE 
W485 O21i4E O12677 161126 MOV - (SP)+,aRHCSL =: G0 WITH 
4486 ;2 IN RHCS! FOR UNLOAD 
wig? ;WITH INTERRUPT DISABLED 
4489 21152 011109 MOY RL.RO ;SAVE RHCS1 DURING ABOVE OPERATION 
4450 G21154 911305 mov = @R3, RS ;SAVE RHDS! DURING ABOVE OPERATION 
| 4492 021156 104912 WAT ;WAIT FOR BIT TO SET 
| 4493 O81160 902300 RHCS! ;IN RHCS1 REGISTER 
| 4494 O31162 900200 RDY : ROY’ 
| 4495 O21164 909001 1. SALLOW_10 MICRO SECONDS 
| $496 O2il66 000001 1. :ANOTHER 10 - "ROY’ MUST SET SETWEEN 
! 





MAINDEC-11-DORJI-A RPOY. 56 FUNCT. 
UNLOAD COMMAND 


DIRIIA.PLl 


Tue 
B23 


ae 


2 Ses 


=m Oo 


a 
ow 
RERE RE RERESRRRE 


fururufruy fufu fufuru 
oy . 
a 


£ 
BERR RR BRE 
WWW WW Wwrortru 
B2ehe 


furus-— OO 
£O.8cM Of 


4537 021326 


4539 021326 
4540 Oe1332 


4542 921496 


734 


paErie 
00S7 


Bose 35 


ae 


420: 
Seabee 


900109 
"Boo88 


001124 


£01126 
004600 


Be 08 


001124 


021334 


0047&0 


004769 


CONT. 


38: 


- 
Oo 
we 


118: 


3,908: 


oss: 
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;#COMPARE CONTENTS OF RHCS1 AND RHDS1, WHICH WERE SAVED 
:*DURING THE UNLOAD COMMAND, WITH THE EXPECTED RESULTS 


MOV JUNE OAD -(SP) :P SH tDe These TACK 


BIS a0VA? GOtADY. (SP)’: j INCLU BITS SET 

TST JaNUNIT RE THAN ONE UNIT ” 

BEQ 38 7a Heer one ONLY ONE htt 

MOV gTHP ‘PUT SAVED Frc 1 INTO T 

BIC ait é geTney sMASK ALL BUT THE ’ IE’ art IN RHCS! 

BIC HIE, { :CLEAR IE’ IN EXPECT ED DATA 

grs ant apa (SP) -SET ‘IE’ STATE FROM ACTUAL RHCS! DATA 

375 (SP) :SET 'SC’ IN RHCS1 SAVED DATA 

MOV (SP), a8SGDDAT  ;SAVE EXPECTED DATA FOR PRINTOUT 

MP (5P)4,R9 : COMPARE EX’ XPEC TED DATA WITH SAVED 
:RHCS1 DATA RESET THE $1 STACK 

3E0 103 :CHECK NEXT BI S. IF THES 

MOV a0. JaSBD0AT ?RHCS1 IS BAD - PRINT IT out 

MOV 1, J8REGADR ‘REGISTER ADDRES 

ERROR Bt. 30 RING ABOVE OPERATION ONLY THE 

VA’. 'GO’, "RDY’ AND COMMAND BITS 

SHOULD BE SET 

MOV uP IP! 10PR -(SP) sPUT SOME EXPECTED RHOSi BITS ON STACK 

MOV UT ngeveD RHDS1 INTO TMPY 

SIC arecROLt Wy seTnbaee SK ALL BUT hoe & "VV IN RHDS! 

rc SMOLI VY. (SPS :CL in "MOL’ & "vv" IN EXPECTED RHOS! 

BIS. gaTRPY, LSP) ie) EXPECTED “MOL” 8 uy" BIT STATES 

ROM T T COON CARE) 
MOV (SP), ae$GODAT  :SAVE EXPECTED DATA FOR PRINTOUT 
CMP (§P)4+,R5 


: OMPARE BAPECT ED DATA_WITH SAVED 
RHOS1 DATA AND RESET THE STACK 
BEG 11$ ; CONTINUE IF Oe ie a 
Mo Re. asSBO0AT :RHDSi_ IS SAD - PRINT IT OUT 
MOV R3, J#REGADR REGISTER ADORESS 
ERROR 63 DURING THE ABOVE Geen Ten, ONLY ‘PIP 
zRND DPR’ SHOULD BE 
MOL’ & ‘VV’ ARE DON’T "sores 


TYPE 965 ss TYPE ASCIZ STRING 
R c$ “GET OVER THE ASCIZ 
"ASCIZ °15><12)/IF STANDOY NOT LIT - ERROR AFTER UNLOAD. 


;THIS PROVIDES A 1 SECOND “STALL” 


mm ee + ee 


















SEG 0160 


ee ee Oe 
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DIRITA.PL1 


455§ 921436 
4650 021443 


457] 9214 
Woes Side 
4574 921470 
4575 031474 


4577 O2l476 
4578 021500 


4582 O21SC4 


4589 021512 
4591 021516 
ae 
4594 Oel5e4 
4595 021526 
4597 021530 


4698 CelS2e 


“73 


094037 
002300 


000001 


00090: 
000098 
100000 


943737 


004037 


0 
021534 


104023 
C0207 


UNLOAD COMMA 


20400 


0047 


100200 
O04s42 


o42et5 


CO4722 


O42246 


S474 OO4635 


042354 


TST-PT 1 
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3s #NOW CHANGE REGISTERS SAVED BEFORE UNLOAD COMMAND 
;*T0 EXPECTED VALUES AFTER UNLOAD COMMAND 


m - AGAIN 'MOL’ $ "VV" ARE DON’T CARES 


20 wow wz 
Or 044+ OOO 
=O MNOOoc< 


JSR 
RHCS1 


73: 


BIC 


SReOEL ATHY. GET PRESENT AC TUnL ag fonfenrs 


#MOL! VV. (SP a inn mol? et TN "EXPECTED, RHOS1 
aaTMPY, SP) :SET EXPECTED MOL’ & ‘YY’ STATES 
iER On THE ACTUAL (DON’T “ARE COND. } 


TAIDRY, (SP) _:CLEAR THESE ADDITIONAL RHDS! BITS. 
tepyee TaSAVERE+30 ;CHANGE THE SAVED RHDS1 REGISTER 
:AND ADJUST THE STACK 


RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
:CHANGE RHCS1 REGISTER 


els Valeo TO BE CHANGED 


VALUE OF GO IS 1 
CHANGE GO SIT 
asNUNIT :38 THERE MORE THAN ONE UNIT ? 
7$ KIP NEXT IF MORE THAN ONE UNIT 
RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 


;CHANGE RHCS1 REGISTER 


1 BIT/BITS TO BE CHANGED 
eh VALUE OF 7 isc 


CHANGE SC BIT 
SBRTTENT, 2SSAVERE+24 :;CLEAR APPROPIATE ATA BITS 
:FOR WORKING CRIVE IN SAVED RHA 


;*NOW COMPARE REGISTERS AFTER THE UNLOAD COMMAND 
;#WITH EXPECTED VALUES 


ISR 


SAVERE 


RO, J#COMREG ; COMPARE SAVED REGISTERS WITH 
; PRESENT Mee E 


;G00D DATA SAVED m *SAVERE” 
:TEST DATA STARTING FROM "RHWC’ 
17, RG ISTERS on Be COMPARED 
RETURN TO 3$ ON ERROR 

SRETURN TO 4$ ON NO ERROR 


es ;UNLOAD COMMAND GAVE 
FC AN ERROR 


C ; 





SES Cl61 


Ss 


-DZRJ 


C21S34 


QS17= 


MACYL1 27(655) 


a, RPO. 44 6 48 on” TST-PT 1 
738 COMMAND 


:;TYPE ASCIZ STRING 
sca ON DRIVE’ 7 . 
;GET UNIT UNDER TEST 
;;TYPE ASCIZ STRING 


; ETWEEN 
;00 AND 20 MICRO SECONDS 
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38000 DATA GIVES WHAT SHOULD 


;RECEIVED DATA GIVES WHAT WAS 
: THERE AFTER UNLOAG COMMAND 





;GET OVER THE ASCIZ 


VER_THE 


93 VE ASCIZ 
(15><12>/IF sTaNDaY LIT HIT STANDBY OR START - AFTER HEAD LOAD HI 





; CLEAR PREY IOUS ERROR NUMBER 
“WAIT FOR CONTINUE 

!CHECKS THAT DVA,RDY,MOL 8 DPR = | 
sSHECKS THAT ALL OTHER BITS : 


NO_HALT 
;1S USED IN THE MIDDLE OF A TEST 


a He 





;*#SET VV_IN RHDS1 AFTER RESET FROM ACTUATING 
;*THE STANDBY SWITCH AND CYCLING UP (MOL = 1) 





;GET an TO wove COMMAND 


;GET READY 
ea INTERRUPT ENABLE 


N RHCS! FOR PACK ACKNOWLEDGE 
hitH INTERRUPT DISABLED 


;SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS! DURING ABOVE OPERATION 


;WAIT FOR VV SIT TO SET 
:WAIT FOR RHDS! REGISTER 


:WAIT FOR VV BIT IN RHDS1 REGISTER 
Q SECONDS 


Sa z 





MAINDES-11-D2RJI-A, RPOW’S’6 FUNCT. CONT. TS MACY 
T OFFSET AND RETURN TO CENTER LINE PONMAND 


DZRJIA.P11 


4673 022002 


4678 Ocede2 
4681 022930 
4683 022030 


4687 022034 


1 
4692 Oeed46 
m4 022052 


6 
914 022056 


33 


ioe 


009904 
012737 
004737 
004737 
104400 


112737 


004737 


004737 


090240 
012709 
012730 


012730 


922030 
001000 
000031 


041366 


041424 
O&640e2 


000901 
000034 


041356 


O4144E 


002272 
177777 


177777 


001105 
004604 


CO4610 
004611 


ie, 


113 


1 27(655) 
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ee pgm oA ry ag get a oe eke ne 
OFFSET AND RETURN TO CENTER LINE COMMAND 


xTEST 31 


me ie eC ic KO Oe oe ca 


#4731: 


1$: 





THIS TESTS TWO COMMANDS: 


(L)OFFSET, (2)RETURN-TO-CENTER-LINE 


ALL ON aE eeT Meters ARE FILLED WITH ONES (EXCEPT FHOF) 


AND AN OFFSET 
ALL REGISTERS ARE CO 


MPARED, ONLY ATA SHOULD SET 


ALL OTHER REGISTERS SHOULD’ REMAIN UNCHANGED 


THEN A RETURN-TO-CENTER-LINE IS GIVEN 

ALL REGISTERS ARE COMPARED ONLY ATA SHOULD SET 
AND RHOF SHOULD CLEAR (EX 

ALL OTHER REGISTERS SHOULD REMAIN UNCHANGED 


THE ABOVE PROCESS IS REPEATED ay OFFSET REGISTER 


VALUES OF 1 


MOV 
MOV 


JSR 


#13, $LPADR 
#STACK, SP 


#31, SateTN 


PC, J#CLOISK 


PC, d#CHECK 
, CPHALT 


#1, JROFSTVL 
#24, JOFSTVL+41 ; 


PC, d#CLDISK 


PC, J&CHECKT 


#RHWC RO 
#177777, a(RO)+ 


#177777 ,a(RO)+ 


XCEPT HCI,ECI,FMTe2) 


TO 377 IE. 377 TIM 
jE RRR EER REE EERE EKER ERE HR EERE AEE EAA E HERR EERE LE EERE 
SCOPE 


tAPEET St A LOOP ADDRESS 
: SAVE Test “NUNBER 


;SET R1-RHCS1, R2-RHCS2 

:R3-RHDS1, R4Y-RHER] 

GIVE Ril INITIALIZE 

; CHECK witht DVA,RDY,MOL,DPR, DRY = 
STATUS BITS ARE eTucK = 

SANNOT LON TRUE TESTS IF THEY AREN'T 


iS? OFFSET VALUE TO 1 
SET HC1,ECI,FMT22 


+ +! gee 30 > RHCS2 


; THERE IS NO HALT IF S-i't 
;USED IN THE MIDDLE OF A SINGLE TEST 
ADDR. OF ADOR OF RHWC IN RO 


;LOAD 177777 INTO RHWC 


;LOAD 177777 INTO RHBA 

































DZRIIA.P11 


711 O2218e 


4715 022106 
4717 O2211e2 
4719 O22116 


4723 Oe2122 
4724 assise 


4743 022170 
4745 022174 


4750 022202 
4751 Oece20b 
47Se Oe2210 
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4233 o2208e 
4701 

702 22066 
u70S 22072 


4708 022076 


T3i OFFSET AND RETURN TO-CENTER LINE COMMAND 


OSe73C 000010 BIS #19, d(RO)+ ;LCAD 10 INTO RHCS2 
012730 001400 MOV #1400,a(RO)+ ;LOAD 1400 INTO RHCS1 


012730 o00000 MOV #0,a(RO)+ ;LOAD O INTO RHERI 
012730 177777 MOV #177777,a(RO)+ ;LOAD 177777 INTO RHDST 


012730 000000 MOV #0,d(RO)+ ;LOAD O INTO RHERe 
;*THE OFFSET REGISTER WILL BE INCREMENTED FROM 9 TO 377 
013730 904610 MOV QOFSTVL,a(RO)+ ;SET OFFSET REGISTER 


012730 177777 MOV #177777,9(RO)+ ;LOAD 177777 INTO RHCA 
012730 900000 MOV #0,a(RO)+ ;LOAD O INTO RHER3 
;#NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


010046 MOV RO, -(SP) :sPUSH RO ON STACK 

11446 MOV JR4, -(SP) :SAVE RHERI TO REINSTATE LATER 

011246 MOV JR2; -( SP) ; SAVE RHCS2 TO BE REINSTATED 
AFTER ALL ATR BITS HAVE BEEN SET 

013700 oo4742 MOV JRTOTALAT,RO GET DRIVES RESENT 

005012 CLR aRe sCL LEAR RHCS2 AND CARRY 

012705 oocoio0 MOV #8. ,RS ER 

006000 82S: ROR RO i eeT BIT INTO CARRY 

103002 BCC 93S ?BRANCH IF NO UNIT ON THIS BIT 

012714 177777 MOV #-i,aR4 :ROVE INTO ERROR REGISTER 

005212 833: INC aRe ; INCREMENT RHCS2 TO NEXT UNIT 

005305 DEC RS CO UNT 

001371 BNE 825 *BRANCH IF 8 NOT DONE 

012612 MOY (SP)+, IRe =REINSTATE RHCS2 

012614 MOV (SP)+' aRY ;REINSTATE RHERI 

012600 MOV (SP)}+'RO POP STACK INTO RO 

095720 TST (RO)+ :GET OVER PHAS IN RO — 


012730 177776 MOV -«-#177776,9(RO)+ ;LOAD 177776 INTO RHMR 
013777 002454 160076 MOV QNOFSETC,QRHCS1 ;GET READY FOR OFSETC 
;#NOW SAVE REGISTERS FOR COMPARISON AFTER OFFSET ae 


004037 041534 JSR RO, J#SAVER ;SAVE REGISTERS “i 
00227e RHWC sRHWC_IS THE FIRST REGISTER SAVED 
004612 SAVERE STARTING ADDRESS OF WHERE 



















O2221e2 


Oe2214 


Oee222 
Oeeee6 


022232 


O2e236 
O2e240 


Oee34e 
022346 
Oee3Se 


T3l 


o0cd22 


013777 


013746 
0S2716 


000454 


013746 


104021 


012746 
011637 
Oeeb05 


OFFSET AND RETURN TO CENTER LINE COMMAND 


0C4606 


002454 
000101 


160042 


0024S4 
004301 
004722 


004760 
17 
109000 


001124 


001126 
004600 


030500 
001124 


ig0044 


004760 


MAINDEC-11-DZRJI-A, RPO4’S’6 FUNCT. CONT. TST-PT 
OLRIIA. P11 


873: 


86S: 


18. 


MOV 


;#COMPARE CONTENTS OF RHCS1 AND RHDSi ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 
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; THE REGISTERS ARE SAVED 
; NUMBER - REGISTERS 
SAVED = 18. 








JBRPYVEC,ARPVEC ;SET RPO VECTOR ADDRESS 
:T0 eh IF P-CLOCK IS FRESENT 
39R TO ’TIMEe” IF P-CLOCK IS NOT PRESENT 
*TIME’ WILL ONLY SAVE 

CURRENT CYLINDER ADDRESS 

AND LOOK AHEAD REGISTERS 








Q¥OFSETC,-(SP) ;GET READY TO MOVE COMMAND 
#GO!TE, (SP) :GET READY TO SET ’GO’ AND 
a ENABLE INTERRUPT 










(SP)+, JRHCS1 WITH 
-14 IN RHCS1 FOR OFSET 
WITH INTERRUPT ENABLED 
JR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
JR3;RS :SAVE RHDS1 DURING ABOVE OPERATION 





iW WATT FOR DRY BIT TO SET 

;WAIT FOR RHDS1 REGIST 

;WAIT FOR DRY BIT IN RHDS1 REGISTER 
Lo 10000 MICRO SECONDS 

;ORY MUST SET BETWEEN 

;7000 AND 13000 MICRO SECONDS 










aKOFSETC = (SP) - SAVE COMMAND 
#DVA'GO! fE!RD » (SP Pe NCLUDE DVA!GO! IE! RDY 
J#NUNIT ; THERE MORE THAN ONE UNIT 









875 BR RANCH IF ONLY ONE UNIT 
RO. ae TMPY : HCS1 
atClE gaTMPY KEEP IE BIT 

*CLEAR IE IN GOOD DATA 
Les isp) -GET IE AS IS 






E 
#SC, (SP) :SET SC IN RHCS1 


(SP) , d8SGDDAT i SAVE FOR PRINTOUT 
(SP)+,RO ING ABOVE OPERATION ONLY DVA!GO!TE!RDY 
* AND oa a ye BE SET 









BLS : BRANCH 
RO, a#SBODAT BAD DATA 
R1, J#REGADR sPAILING REGISTER RHCS1 
21 DU URI NG ABOVE OPERATION ONLY 
sCOMMAND AND DVA'GO!TE!RDY SHOULD BE SET 
#PIP!MOL!DPR!VV, ey Save BITS SET DURING OPERATION IN RHDS1 
(SP). ¥SGDDAT ; SAVE FOR PRINTOUT 
(5P)4+,R5 : DURING ABOVE NOPERATION ONLY PIP!MOL!DPRIVY 


;SHOULD BE SET 
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DZRIIA.P11 13] OFFSET AND RETURN TO CENTER LINE COMMAND 

4861 oes iee 000240 NUP ;UNLIKE THE OTHER pATYS S BIT Tests, 

4962 2466 000240 NOP : THERE IS ARO be TFAILS IS 

48$3 .. jUSED IN THE M oF A SINGLE TEST 

4869 022470 013777 O02456 157602 MOV @#RETCL,@RHCS1 ;GET READY Y FOR, RETEL 

Ne a ‘RETURN TO CENTER CINE WITH 16 IN RHCS1 







4868 ;*NOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND 







4870 Oe247— 904937 O41534 JSR RO, J#SAVER ;SAVE REGISTERS 

4871 OQeeSde O0ee72 RHWC :RHWC_IS THE FIRST REGISTER SAVED 
4872 OeeSo4 O04ble SAVERE STARTING ADDRESS OF WHERE 

4873 THE REGISTERS ARE SAVED 

ugve O2eS0& o000ee 18. bt ee 













4877 022510 0137 004606 157550 MOV DBRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 

4878 TO ’TIMEL’ IF oe Be IS PRESENT 

4879 :0R TO ’TIME2’ IF P-CLOCK IS NOT PRESENT 
4880 ;’ TIME’ WILL ONLY SAVE 






4881 CURRENT CYLINDER ADDRESS 
4882 ;AND LOOK AHEAD REGISTERS 













84 
4885 022516 01374 O024S6 MOV OeRETCL -(SP)  ;GET READY TO MOVE COMMAND 
4886 Oe2eSe2 052716 O001C1 BIS #GO!TE, tSP) :GET READY TO SET °GO’ AND 
4887 ‘ENABLE INTERRUPT 
4888 022526 012677 157546 MOV (SP)+, JRHCS1 360, TH 
4839 IN RHCS1 of 0B RETURN TO CENTER LINE 
4899 Rha INTERRUPT ENABLED 
4891 022532 011100 MOV dR1,RC :SAVE RHCS1 DURING ABOVE OPERATION 
4832 022534 011305 MOV JR3,RS :SAVE RHDS1 DURING ABOVE OPERATION 
94 
4895 022536 104412 WAT ;WAIT FOR DRY BIT TO SET 
4896 O22540 O02322 RHDS1 ‘WAIT FOR RHOS1 REGISTER 







4897 OeeS4¥e 000200 DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
022544 SECONDS 





4898 001750 1000. ;ALLOW 10000 MICRO 
4899 OeeS46 001750 1000. ;ORY MUST SET BETWEE 
4900 00 AND 20000 MICRO SECONDS 






4901 
4902 ;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
ions | :#RO AND RS IMMEDIATELY AFTER GO 








4905 022550 013746 o024S6 MOV OWRETCL (SP) ;SAVE COMMAND 

4906 022554 052716 004301 BIS #DVA'GO! TE? RDY, (SP) - INCLUDE DVA!GO! IE!RDY 
4907 022560 005737 004722 TST OSNUNIT “ARE THERE MORE THAN ONE UNIT 
4908 022564 001413 BEQ 308 :BR NCH IF ONLY ONE UNIT 

4903 022566 010037 004760 MOV ET RHCS1 







4910 Q22572 042737 177677 OO4760 C Meee MPS sKEEP P IE BIT 

0 ¢ #IE, (SP) “CLEAR IE IN GOOD DATA 
S aeTMPY, (SP) :GET IE A 
5 #SC, (SP) -SET SC IN RHCS1 







4913 Oeeb10 OSe716 100000 
4914 O22614 90$: 











OZRJIIA. 731 OFFSET AND RETURN TO CENTER LINE CO 






































. 4937 022664 004037 O4ee46 JSR RO, J#CHREG 
ioe 022670 002300 RHCS1 
4940 O2267e 000001 1 
4941 O22674 000001 1 
Weng 022676 100000 sc 









4944 2700 004037 O42246 JSR RO, J#CHREG 
494S 022704 002322 RHDS1 



















Nert 022732 004037 042354 JSR RO, J#COMREG 
4962 022736 OO4ble pavent 
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4915 022614 011637 d01i24 ' MOV (SP), d#SGDDAT 
022600 (SP)+,RO 


2650 001405 91$ 
4928 OeebSe 010537 001126 MOV RS, d#S$BDDAT 
reeds 004600 MOV RS, , J#REGADR 
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s SAVE FOR PRINTOUT 
;DURING ABOVE a a ONLY DVASGO! TIE! ROY 
OMMAND SHOULD BE SET 


RANCH IF GOOD 
TA 


fo DA 

;PAILING REGISTER RHODS1 
;DURING ABOVE OPERATION ONLY 
:PIP!MOL!OPR!VV SHOULD BE SET 


TION ONL 
DV AiGOETEVROY CHOULD BE SET 
2 SET DURING OPERATION :N RHDS! 


NTOUT 
ING ABOVE OPERATION ONLY PIP!MOL!DPR! Vv 
BE SET 


4917 = ND C 

4918 O22622 001405 BEQ 89$ BRANCH IF GOOD 

4919 O22&24 010037 001126 MOV RO, J#SBDDAT :BAD DATA 

4920 022630 010137 904600 MOV Ri; J#REGADR iPAILING REGISTER RHCS1 
4921 022634 104021 ERROR 21 DU URING ABOVE OPERA 

492 ‘COMMAND AND 

4923 022636 012746 030500 89$: MOV #PIP!MOL'DPR!VV,-(SP)  ;SAVE BIT 

4924 Qecb4e 911637 001124 MOV (SP) aHSGDDAT ’*;SAVE FOR PR 

1328 022646 022605 CMP (SP)+,R5 OUR 

492 14 SEQ 


4934 | ;#NOM CHANGE SAVED REGISTER TO EXPECTED VALUE 


;CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 


1 BIT/BITS TO BE CHANGED 
sc Isl 


‘NEW VALUE OF 


;CHANGE SC BIT 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHDS1 REGISTER 


1 BIT/BITS TO BE CHANGED 
; NEW - Is 1 


4946 

4947 022706 op0001 1 

4948 Oe2710 Oo0001 1 VALUE OF 
4348 022712 100000 ATA “CHANGE ATA BI 
4351 022714 053737 OO4740 CO4636 BIS JRATTENT, J#SAVERE+24 

49g if COMER 
4954 022722 004037 041270 JSR RO, 2#F ILLRE ;MOV_BIT Tiere HCI'E 
4955 022726 902310 ‘SAVED REGISTER 
4356 022730 116000 BITIS'HCI!ECI!FMT22 


s 


INE 
: COMMAND CAUSED AN ERROR 


art aetna pat *ATA’ BITS 
HOR IVE IN 


hi OR 


HAS _LOACTION 

ECI!FMT22 INTO SAVED RHOF 
Q CHANGE 
;DATA 


4958 ;*NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-LINE 
; COMPARE T ALLE REGISTERS WITH 
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OFFSET AND RETURN TD CENTER LINE COMMANL : 


+6000 CATR HOS WHAT SHOULD 
HERE 


:RECEIVED DATA HAS WHAT WAS 
:; THERE AFTER COMMAND 


S$: 
241366 JSR Po, JeCLOISK ;SET RL-RHCS I R2-RHCS2 
:R3-RH 4-RHER | 
GIVE Reeth” INITIALIZE 
:SETUP UNIT NUMBER 
904619 : INCl =: SROF STV : GET NEXT OFFSET VALUE 
600199 904610 8178 8100, DaSFSTVL :SEE IF UNUSED BIT & IS ON 
EQ 7g =NO SO D0 SOME MORE 
909100 904610 AnD s100,380FSTVL ©; YES SO BY-PASS IT : 
d04613 7$: TST8 43s SROF STYLE preg el COMBINATIONS ARE 
3NE S$ “BRANCH IF 377 NOT DONE 
of TST32.—C; BSANCH TO NEXT TEST 
922930 $$ IMP 3818 :JUMP BECAUSE 377 NOT DONE 





j . 

' 

' " : 

{ Se ee ne 
ee ee ee _ - a ae ee ee ee + ee ee 


atatetetater: 3 
O—- 0- + 0-+ 0 & +b <b © 8-2 po 
000-30 U1 6 Gu 


IOONOO 


fatetatetsteteletere 
Ue toneces 

f0 fororofo furufurons 

W WhituW GdWUIGGl 

- +--+ +b -b— —< p< b-< 9 -= pe 


tw tv 
rs 


win 
ATH 


eee ee a ee ee re ee OS ES SN: 


Now ORES 


923332 


023136. 


023142 


900904 
Ole737 


012706 
Cle7s? 


904737 


004737 
104400 


Ci374E 
052716 


012677 


"33 7 a 


000764 004756 


901000 
Oc0032 


04: 366 


41448 


086402 


041352 


0024S4 
ocd162 


157200 


04300 


043366 


oC2426 
900191 


157132 
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;*TEST 32 
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[LR RRREREREEERRERER REE REE SRE EEEEEEEERERERERAR REREAD ESES SLE E SES O EE 
OFFSET COMMAND 


THIS TEST WILL ONLY GIVE REPEATED OFFSETS 


MOV 


MOV 
M 0 y 
ISR 


# SOO. ,deTMPl 


BSTACK, SP 
832, a8tSTNM 


PC, daCLOISK 
PC, aeCHECKT 
, CPHALT 

RO, JROFSET 


DBOFSETC, -(SP) 
aGOrTe, (SP) 


(SP)+, JRHCS} 


sERR, JRHOS! 
es 
et 


PC, aeCLOISK 


oer -(SP) 
aGO!l . (SP) 


(SP)*, QRHCS1 


oe 


+ RERERRERLERERRASEERRERREER EL ELE ELEREEREL ESLER SEES EEE EELS ES £44444 
» §coP 


; COUNTER 


;RESET STACK 
;SAVE TEST NUMBER 


:SET Ri -RHCS| R2-RHCS2 
!R3-RHDS1, RY-RHER! 
; GIVE rtd INITIALIZE 
‘SETUP UNIT NUMBER 
CHE DVA, ROY, MOL, DPR, D 

THAT NO StaTUS art a suk = 


S 
:PANNOT LoNTIRUE raues Y OF 
THE FIRST SET Ge BITS 0 r 1 


: OFSET 
:260 IN OFSET REGISTER 
;OFSET -1200 MICRO INCHES 


;GET READY TO MOVE COMMAND 
;GET READY TO SET *GO° AND 
seo att INTERRUPT 


: TH 
“14 IN RHCS1 FOR OFSET 
bitty INTERRUPT ENABLED 


sMAtT eon ORY BIT TO $e] 
;WAIT FOR RHDS1 REGISTER 

sHATT FOR ORY BIT IN RHOS!1 REGISTER 
ALLOW 3500 Pa SE aie 

;DRY MUST SET 

:00 eS 7000 NERO SECONDS 

iTS ERR SET? 


i REPEATED OFFSETS CAUSED AN ERROR 


eu aL-RHCSI fecstese 
:R3-RHDS! 

:GIVE oe INT TACIZe 

:SETUP UNIT NUMBER 


;GET READY TO MOVE. ai 
GET READY TO SET * AND 
ENABLE INTERRUPT 


WITH 
‘6 1N RHCS1 FOR RECALISRAT 
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“132 OFFSET COMMAND 


;WITH INTERRUPT ENABLED 


so4si2 WAT sWAIT FOR DRY BIT 10 SET 
3 RHOS 1 :WAIT FOR RHOS1 REGISTER 
ood290 DRY :WOIT FOR DRY BIT IN RHDS! REGISTER 
osoeso 25000. TALLOW 250000 MICRO SECONDS 
O60650 25000. ;DRY MUST SET BETWEEN 
Q AND Scd000 MICRO SECONDS 
Q05337 CO47Se 23: CEC =a TMP :COUNT DOWN 
95145: BEQ «= TST32—; BRANCH IF DONE Fe 
boo? 17 Es 13 ;G0 SACK AND DO IT AGIEN 








OAT? { See yt 3 S“6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-MAR-76 22:59 PAGE lle 
TESTS USING MEDIA 


Cnn nonunion 
IOOd 
ATW eb 


0 +b +6) + 9-2 9-2 b= 8 bs 


oOondvod0o 
wo Or" 






- SBTTL READ/WRITE TESTS USING MEDIA 
y RERRERERERRR REE ELE ERER ERE EERE REL EREREEEES ERE ERE CEEERE ERE RSS 
i ATEST 33 WRITE/READ HEADER AND DATA (0’S) 


WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
TRACK 0 CTOR 0, KEYS=0, NUMBER OF WORDS 256 WORCS 


THEN READ HEADER AND DATA FOR ABOVE. 

WRITE FROM BUFFER AND REAC INTO BUFFER ARE FILLED WITH 

10000,0,0,0, AND 256 OF 0 

Ly. 3 WRITE’ COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT 
THE GO BIT, AND ALL_THE REGISTERS ARE SAVED 

THEN GO IS’GIVEN FOR WRITE HEADER AND DATA 


THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 


a 
al eee 


NOW FOR T HE READ COMMAND READ INTO BUFFER IS FILLEC 
WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS EXCEPT 
3 BIT AND ALL REGISTERS ARE SAVED 
GO IS GIVEN FOR THE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED. 


Ua Orgel to arian ag HKARAARELRERELTLTLARE LE 


$8733 E 
MOV BSTACK, SP sRESET STACK 
MOV 833, 2aTSTNM :SAVE TEST NUMBER 
ISR PC, 28CLDISK 8 RI-RHCS} OR Re-RHCSE 


sa INTTTRL 2£ 
aii UNIT NUMBER 


;*#FILL WRITE FROM BUFFER WITH HEADER 


JSR RO, J#FLHEAD ; SAVE HEADER DATA iN WRF ROM 

WRF ROM feet te WHERE SAY 

4 NUMBER OF WORDS SAVED 

10000 ty DATA WORD 

0 ;SECOND DATA WORD 

Q ; THIRD DATA WORD 

ss) FOURTH DATA WORD 

;#FILL WRITE FROM BUFFER WITH DATA 

JSR RO, d#CLAREA ; CLEAR 25g. WORDS, FROM NRFROM+10 
a welt . 256. Rena ING FROM WRFROM+19 


WO 
:FILL WITH O 





me ee + + + ee eee 





APRA PL 


TUTU TUT &- b= 0 p-- > =~ b= 9 <9 
WM -OWO NIM ULECUtue-C 


fob Gore 


Ww 
Ww 


PAE WS DO GRE 


CAO OOOO OUT ON OT OTUs a 
—-O.00N) 


> -+0-+ b= b= 8+ 6+ b= bb 8 - + 0 0 0 bb 8 + bd + b+ 0 -= Bo B22  & * = 9-0 = §-= 0—2 F  B* bb 2 9 + B-2 b+ B= BB BB «fo = 


phe ath Met dl ly he daly ££ 


Gatur- OC .OONMU£G 


a ee ae 5 ee ce eee en 8 





O233it 
O233ee 
023324 


d23326 


023330 
023334 


023349 
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733 


004037 
00 


904037 
002272 
004612 


000921 


004737 
104400 
O03000 
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WRITE-READ HEADER AND ATA (0°S) 






or READ INTO BUFFER WIL, we FILLED WITH SAME DATA 
3#RS wT FROM ae SQ_T AFTER A eT COMPARISONS 


:#CAN BDE TO Mak — SUR wat WRITE DID N 
ON ABE UR E FROM SUFFE 
ISR RO, JHFLHEAD SAVE HEADER DATA IN. REINTO 
REINTO CATION WHERE SAV 
4 HUMBER OF WORDS eAteD 
19000 IFIRST DATA WORD 
5 :SECOND DATA WORD 
5 : THIRD DATA WORD 
‘FOURTH DATA WORD 
Sp RO, DaCLAREA :CLEAR 256. WORDS, FROM REINTO+10 
REINTO+1 “STARTING FROM REINTO+10 
256. :256. WOR 
FILL WITH 0 


:#NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR RO, #RUN ;SETUP TO RUN FOR DATA COMMAND 
: ;CYLINOER 0 
0 RACK 0 
=256.-4 SWORD COUNT (DATA) = 256. + 
;4 HEADER WORDS 
WRF ROM 


BUS ADDRESS 
: STARTING ADDRESS OF DATA 
9 :60 NOT INHIBIT T Bus 200 RODRESS INCREMENT 
FMT22 :16 BITS PER W 
‘50 NOT INNIBIT ECC RORRECTION 
;D0 NOT INHIS1T HERDER COMPARE 
WRIFOR T READY TO DO A WRIFOR 
; WRITE uéaber AND DATA WITH 62 IN RHCS! 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DAT 


ISR RO, J#SAVER : SAVE REG ISTERS 
RHWC | RHWC IS THE FIRST | REGISTER SAVED 
SAVERE :START ING ADDRESS OF WHERE 
!THE REGISTERS ARE CatEn 
17. : NUMBER OF 7REGISTERS 
:SAVED = 
JSR PC, JUCHECKT : CHECK pve RDY, MOL, DPR, ORY, VV = 1 
AND THAT NO StaTus BITS ARE STUCK = 
TYPE _,CPHALT SHANDY MONT IRUE YEStING a ANY iF 
THE FIRST SET OF BITS DON’ 


HALT : STOP 





»imn 


COrroww 

WOOD IOUl LL pd 
. 
wt 


~J 
oo 


0-+ b~* b+ b- + &-+ b= b= b= b= b= B+ 92 b= 2 bo 2 2 2 2 Bh Be 2 B22 2 8 be he = he bo he Be he 


QUT UU TUT UT UT UT UT UT UUUTUUTOUT 


cg 
5210 


—- 


UTUN Unni 
rororururofrr 
o + 0+ b-+8-+8 = 
NOUNS OTUe 


Ta 
"9 


022342 


923350 
023354 


023350 


023364 
023366 


B53406 


d2e3432 
o23424 
e340 
o23444 


023446 


aS3ae4 


023450 
Ce34be 


-DIRII-8, RPOY: 
33 


Qi3srr? 


Boia? 


OE Leg 


104021 
012746 
11637 
ecb0s 


003405 


104063 





SC4606 158716 


002444 
90016! 


1S6714 


02444 
004101 
001124 


091126 
004690 


5-6 FUNCT. CONT. TST- MACY11 27(655) 30-NAR-7& 22:59 PAGE 114 
WRITE’READ HEADER AND aTA (0°S) 






SES C174 






















MOV DBRPYVEC ,ARPVEC ; seer, vo VECTOR ADDRESS 
:T me , Pe eR IS PRESENT 
OR 7 Q *TIMEe’ IF P-CLOCK IS NOT PRESENT 
; TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


MOV O@SWRIFOR,-(SP) ;GET READY 18 MOVE age 

BIS aGO!NTE, (SP) GET READY TO SET 'GO’ AND 
sENABLE INTERRUPT 

MOV (SP)+,dRHCS1 TH 


*.62 IN RHCS1 FOR WRITE HEADER AND DATA 
:HITH INTERRUPT ENABLED 


MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 

MOV dR3,RS :SAVE RHDS1 DURING ABOVE OPERATION 

;#ONE REVOLUTION=16570 MICRO SEC, ONE SECTOR = 760 MICRO SEC amit 
WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 :WATT FOR RHCS1 REGISTER 

ROY ;WAIT FOR ROY BIT IN RHCS!1 REGISTER 

908. ;ALL OM 9080 MICRO SECONDS 

639. :ROY MUST SET BETWEEN 


:690 AND 17470 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
;#RO AND RS IMMEDIATELY AFTER GO 


MOV DaWRIFOR,-(SP) ;SAVE COMMAND 
BIS #IE!GO! Oa (SP) § : INCLUDE 1E 260% DVA 


MOV (SP), a8$GODA :SAVE FOR PRINTOUT 
CMP (5P)+,R0 :DURING ABOVE OPERATION ONLY IE!GO!DVA 
*AND COMMAND SHOULD BE SET 
BEG ous ; BRANCH IF GOOD 
MOV RO, JaSBDDAT 
MOV R1, J#REGADR FAILING REGISTER RHCS1 
ERROR 21 iO ING ABOVE OPERATION ONLY 
ND AND TE +G0!DvA SHOULD BE SET 
4S: MOV eMOL! DPR! VV, -(SP! inv ET BITS SET DURING OPERATION IN RHD 
MOV (SP) D8SGODAT it ae NTQUT 
CMP (5P)4,R RING ABOVE ° RATION ONLY MOLIDPRIVY 
BEQ b6$ BRANCH 1 350 
MOV RS, J&SBDDAT T 


ATA 
MOV R3,a#REGADR FAILING REGISTER RHDS! 
ERROR 63 ;DURING ABOVE OPERATION ONLY 
EES ;MOL!DPR!VV SHOULD BE SET 


;#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


<a ae ee oe - 
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SE 0175 
733 WRITE’READ HEADER AND DATA (O'S) 


“0 
= 





S218 O23462 904037 041270 ISR RO, IWF ILLRE -MOV_O INTO SAVED RHWC 
S219 022466 02272 RHWC i SAVED REGISTER TO CHANGE 
5220 des470 900000 x 0 
S221 Oes47e 004037 041270 ISR RO, IHF ILLRE "MOV WRFROM+<260.*2> INTO SAVED RHBG 
S22 923476 O02c74 RHSA “SAVED REGISTER TC CHANGE ‘ 
5223 023500 9o3scC WRFROM+< 260. *2> “DATA 3 
S204 023502 904037 o41270 JSR RO, JHF ILLRE INTO SAVED RHDST f 
5225 023508 002304 RHDST ‘CAVED REGISTER TO CHANGE < 
see 023510 000001 l :DATA 

é¢ 
5228 :#NOM COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
£329 : WITH REGISTERS AFTER COMMAND 


pss 023512 OO04037 042354 JSR RO, J#COMREG pa 2 VALLE REGISTERS WITH 
S234 023516 004612 SAVERE ;GOOD DATA SAVED IN *SAVERE’ 
S235 923520 002354 We sTEST DATA STARTING FROM *RHWC’ 
$236 Qessee 000021 Ve REGISTERS TO BE COMPARED 
Ses? 923524 923530 1$ SAETURN TO 1$ ON ERROR 

S238 023526 023534 es RETURN TO 2$ ON NO ERROR 


Se40 023530 104027 1$: ERROR 27 ;WRITE HEADER AND DATA 4 
Se4i 023532 00207 RTS) BC :CAUSED IMPROPER REGISTER $9 \\ 
542 : CHANGE it *! 
5543 GOOD DATA GIVES WHAT SHOULD 


S245 RECEIVED DATA GIVES WHAT 
S246 :WAS THERE AFTER COMMAND 


S248 ;*#NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
S24s : NOTHING GOT CHANGED 


esos 0e3534 es: 
esas 023534 pees. 043494 iF oro RO, J8COMPAR ; COMPARE TWO BLOCKS OF MEMORY 


3$ ON ERROR 
Bese CesEs0 Oe3586 ae SRETURN TO 43 ON NO ERROR 
5260 
5261 023552 104030 38: ERROR 30 ;WRITE HEADER AND DATA 
bebe S23554 00207 Ris FC CHANGED WRITE FROM BUFFER 
5264 ;*#NOW_A_READ HEADER AND DATA COMMAND WILL BE GIVEN 
Set . ;*READ INTO BUFFER IS FILLED WITH ONES 

| 567 o23ss6 us: 

| E269 023556 004737 O41366 JSR PC, AHCLDISK :SET RL-RHCS!. RE-RHCSE 

| 270 :R3-RHOS1, R4-K 

| §271 GIVE RH-11 INITIALIZE 

| 





MAINDEC=11-DZRJI-A, RPOY 
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S288 023606 


30 
S291 923610 
Se9e Oe3ble 


Qy 
5e95 023614 
36 


$301 923616 


5314 O23642 


S3ee 023650 
S3e3 023654 


| & 

| S3ie 023640 
| 

| 

| €3e5 022660 
{ 


133 


004037 
34 


177374 
003534 


900000 
014000 


oc24so 


004937 
002272 
004612 


oc0022 


004737 
104400 
600000 
013777 


013746 
052716 


012677 


5 
WRI 


043349 
as 


043534 


O4144 
ose402 


OO4606 


002450 
00010i 


156414 


1SE41E 


O72 
m—-4 


.BYT 
.BYTE 
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R AND DATA (0°S) 





14 


sare UNIT NUMBER 


JSR RO, J#CLAREA ‘CLEAR 260. WORDS FROM REINTO 
REINTO ; STARTING FROM REINT 

260. WORDS 

=| SFILL WITH -1 


;*NOW FILL COMMAND 


JSR RO, 8RUN ;SETUP_ TO RUN FOR DATA COMMAND 
Q ;CYLINDER 0 
4] s SECTOR 0 
a) ACK 0 
“256. -4 ‘WORD COUNT (DATA) = 256. + 
:4 HEADER WORDS 
REINTO :BUS ADDRESS 


; STARTING ADDRESS OF DATA 

BUFFER = REINTO 

:D0 NOT INHIBIT BUS ADDRESS ail 
316 ith 43 R WORD FORM 

s INHIBIT ECC CORR ON 

:D0 NOT INHIBIT READER COMPARE 


REF OR ;GET READY TO DO 0 
READ HEADER AND BATA WITH 72 IN RHCS1 


) 
ECI!FMTee 


;#NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


ISR RO, J#SAVER :SAVE REGISTERS 
RHWC :RHWC IS THE FIRST REGISTER SAVED 
SAVERE ; STARTING ADDRESS OF WHERE 
;THE REGISTERS ARE SAVE 
18. NUMBER OF REGISTERS 
:SAVED = 19. 
ISR PC, JaCHECKT :CHECK DVA,RDY,MOL,DPR,DRY. VV = 
AND THAT NO StaTUS BITS BRE | suck =} 
TYPE §,CPHALT ; CANNOT CONTINUE Yeot ine t ¥ OF 
THE FIRST SET OF BITS Bowe rn = 
HALT STO 
MOV - QBRPYVEC, ARPVEC :SET RPOY VECTOR ADDRESS 
O *TIMEL’ IF P-CLOCK IS PRESENT 


‘OR TO Tiveo* lt P-CLOCK IS NOT PRESENT 


;* TIME’ WILL ONLY SAVE 
: CURRENT CYLINDER ADDRESS 
:AND LOOK AHEAD REGISTERS 


MOV DAREFOR ={SP) :GET READY TO MOVE COMMAND 

prs #GO'IeE, (SP :GET READY TO SET *GO" AND 
: ENABLE INTERRUPT 

(SP)+, IRHCS1 :G0 WITH 




























SES 0176 






Eke 1 Amapee RPO4’S’”6 FUNCT. CONT. 
WRITE/READ HEADER AND DATA (0°S) 


SEER Ree See 
Ren 255 
“- 5-6 
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-72 IN RHCS1 FOR READ DATA 
: WITH INTERRUPT ENABLED 
3R1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV JR3,R5 SAVE RHDS1 DURING ABOVE OPERATION . 









WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 ;WAIT FOR RHCS1 






REGISTER 
RDY ;WAIT FOR ROY BIT IN RHCS1 REGISTER 
908. ;ALLOW 9080 MICRO Ba CON DS 
839. ;ROY MUST SET 





BE 
3690 AND 17470 MICRO SECONDS 


;#COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:*RO AND RS IMMEDIATELY AFTER GO 


MOV DSREFOR,-(SP) SAVE COMMAND 
BIS #1E1G0! OVA (SP) :INCLUDE 1E:G0!DVR 



























MOV (SP), a#SGDDAT SAVE FOR PRINTOUT 

CMP (SP)+,RO ‘DURING ABOVE OPERATION ONLY IE!GO!DVA 
?AND COMMAND SHOULD BE SET 

BEQ 67% ;BRANCH IF GOOD 

MOV RO, J#SBDDAT TA 

MOV R1; a#REGADR ‘FAILING REGISTER RHCS1 

ERROR el sDURIN NG ABOVE OPERATION ONLY 
“COMMAND AND IE!GO!DVA SHOLILD BE SET 

MOV #MOL! DPR! VV, -(SP3 -SAVE BITS SET DURING OPERATION IN RHDS 

MOV (SP) aaSGDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)4+,RS :DURING ABOVE OPERATION ONLY MOL!DPR! VV 
; SHOULD BE SET 

BEQ 69% :BRANCH IF GOOD 

MOV RS, J#SBDDAT :BAD DATA 

MOV R3. J#REGADR *FATLING REGISTER RHDS1 

ERROR 63° :DURING ABOVE OPERATION CNLY 





;MOL!DPR!VV SHOULD BE SET 









;*#CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, d#F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC ; SAVED REGISTER TO CHANGE 


0 

JSR RO, d#F ILLRE MOV REINTO+<260.%2> INTO SAVED RHBA 
;SAVED REGISTER TO CHANGE 

REANTO# EEO. . #2) 


RO, J#F ILLRE 1 INTO SAVED RHOST 
SAVED REGISTER TO CHANGE 













;*COMPARE REGISTER BEFORE READ HEADER AND DATA 
;4WITH REGISTERS AFTER COMMAND 













JSR 





RO, d#COMRES ;COMPARE SAVED REGISTERS WITH 
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DZRIIA.P11 133s WRITE/READ HEADER AND DATA (0°S) 
5380 ;PRESENT VALUE 
5381 024016 O0ue12 SAVERE :GO0D DATA SAVED IN *SAVERE’ 
5382 024020 002354 WC ;TEST DATA STARTING FROM  ’ RHC" 
5383 Oe%022 o000z2 18. :18, REGISTERS TO BE COMPARED 
5384 eve4 24030 S$ :RETURN TO S$ ON ER 
5385 Oevdee 24034 6S ZRETURN TO 6$ ON NO ERROR 
5387 024030 104031 S$: ERROR 31 sREAD HEADER AND DATA CAUSED 
5389 024032 000207 RTS ss PC ZIMPROPER REGISTER CHANGE 
5389 ; G00 DATA GIVES WHAT SHOULD 
53390 :BE THERE 
£391 ZRECEIVED DATA GIVES WHAT WAS 
5392 :THERE AFTER COMMAND 
5394 ;#NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
5395 :4THE READ WAS GOOD 
53% ~~ 
5397 024034 ““— 6; 
5399 024034 004037 043404 JSR RO,@HCOMPAR — ; COMPARE TW BLOCKS OF MEMORY 
5400 Oe4040 002470 WRFROM :G00D DATA STARTS FROM WRFROM 
540i Oex04e 00352 REINTS :TEST DATA STARTS FROM REINTO 
Su02 d2e4044 00404 260. :260. WOR OS_T0 BE COMPARED 
5403 24046 o24052 7§ :RETURN 10 7% ON 
S404 Oe40S0 deN056 108 SRETURN TO 10S ON NO ERROR 
5406 
5407 oe40S2 104032 7$: ERROR 32 ;WRITE HEADER AND DATA 
5408 d24054 Odg0207 RTS PC :FOLLOWED BY A READ HEADER 
5409 :AND DATA GAVE A READ ERROR 
5410 ZERROR MAY BE IN READ OR WRITE 
S4il o240s6 10S: 





K14 
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DZRIIA.Pil 733 WRITE/READ HEADER AND DATA (0°S) 
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S414 jp  REREREARERRERRE RRR AAA AEAE ELAR ERASER AERA R ELAR ARR E AREER SELES EEE 
Su15 TEST 34 READ DATA (0’S) 

S417 +% THIS TEST READS DATA WRITTEN BY THE PREVIOUS TEST 

5419 1% THE WRITE FROM BUFFER IS FILLED WIT 

5413 : x THE COMMAND IS FILLED, THEN ALL REGISTERS SAVED 

5420 1% THEN READ DATA COMMAND IS GIVEN 

5421 :¥ ALL REGISTERS ARE COMPARED FOR PROPER VALUES 

5iee 1 READ DATA INTO *READ INTO’ BUFFER IS CHECKED 







CYey © REAKHEALHA LEAR A KE ARAA AEH ALARA AAEAAKHKA ERA LER ELE L RELL KLA ALK KRLFEE 
. 5425 o24056 900004 +8734: SCOPE 
. 5426 Oe4060 Ole706 001000 MOV #STACK SP RESET STACK 

S427 024064 012737 000034 oo4604 MOV #34, a8tST -SAVE TEST NUMBER 









5428 

S429 024072 004737 041366 ISR PC, J#CLDISK iSET RI-RHCS1, R2-RHCS2 
5430 Ro RHDS1 1 
5431 ‘GIVE Raat INITIALIZE 
S432 :SETUP UNIT NUMBER 





5434 ;*FILL WRITE FROM BUFFER WITH EXPECTED DATA 






5435 

5435 024076 004927 041236 JSR RO, J¥CLAREA ;CLEAR 256. WORDS FRON WRFROM 
5437 024192 002470 WRFROM ; STARTING FROM WRERO 

5438 924104 oco400 256. WORDS 







S439 924106 000000 0 FILL WITH 0 






S442 ;*NOW THE READ DATA COMMAND WILL BE FILLED 











S445 024110 004037 043340 JSR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
S446 024114 o00000 0 :CYLINDER 0 

S447 Oo4li6 000 .BYTE ; 

S448 024117 000 "BYTE 0 K 

S448 024120 177400 -256. :WORD COUNT = 256. 

E450 Oe4le2 003534 REINTO “BUS ADDRESS 

5451 ; STARTING ADDRESS OF CATA 

5452 ‘BUFFER = REIN 

S453 024124 00000 0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
S454 Oe4i2s 014000 ECI!FMT22 16 BIT S PER WORD FORMAT 

Sus : INHIBIT’ 7Eoc CORR 

Sus6 :DO NOT INHIBIT HERDER COMPARE 

S457 624130 oco244s READAT -GET READY 0 A READAT 

S4s8 ;READ DATA WITH 70 IN RHCS1 







S461 ;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 





S462 

S463 Oe413e 004037 041534 JSR RO, J#SAVER ; SAVE REGISTERS . 
S464 O0e4136 O02e72 RHWC sRHWC_IS THE FIRST Pat lls, SAVED 

S465 024140 O04ble SAVERE STARTING ADDRESS OF WHERE 







THE REGISTERS ARE SAVED 
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DZRJIA.P1L 734 READ DATA (0°S) 


024142 o000e2 18. ‘NUMBER OF REGISTERS 
*SAVED = 19. 
O24144 004737 O41446 PC, JHCHECKT ; CHECK DVA ROY, MOL DPR,DRY, VV = 1 
THAT NO StaTUS BITS ARE STUCK = 
o241S0 104400 966402 . CPHALT CANNOT gt aia" TESTING IF ANY OF 
:THE FIRST SET OF BITS DON’T = 1 
024154 900000 : STOP 


O241S&6 O13s777 OO4E0E 156102 Q#RPYVEC, AIRPVEC ; se! RPOY VECTOR ADDRESS 
; TQ at IF P-CLOCK IS PRESENT 
;OR TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
;* TIME’ WILL ONLY SAVE 

;CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


01374 o02446 DeREADAT,-<SP) ;GET READY TO MOVE COMMAND 
000101 wGO'IE,($P) GET READY TO SET ’GO’ AND 
Z SENABLE INTERRUPT 
156100 (SP)+, JRHCS1 360 WITH 
FOR READ DATA 


IN RHCS! 
shitty INTERRUPT ENA 
JR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
aR3,R5 :SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR ROY BIT TO oer 
:WAIT ate RHCS1 REGISTER 
iW RDY BIT IN COND REGISTER 


001507 SET BETWEEN 
690 AND 17470 MICRO SECONDS 


FRO AND CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
*#RO AND RS IMMEDIATELY AFTER GO 


013746 oO02446 JHREADAT,-(SP) ;SAVE COMMAND 
004191 aIE?GO!D0R (SP) : INCLUDE 1E260! bva 
001124 (SP), asSGDDAT :SAVE FOR PRINTOUT 
CMP (3P)4 RO ;DURI NG ABOVE OPERATION ONLY IE!GO!DVA 
AND COMMAND SHOULD BE SET 
BRANCH IF GOOD 


64S 
001126 RO, a#SBDDAT 
004600 MO R1’ JBREGADR FAILING REGISTER RHCS1 
104021 21 DURING ABOVE OPERATION ONLY 
“COMMAND AND IE!GO!DVA SHOULD BE SET 
012746 o10S00 : #MOL! DPR! VV, -(SP3 : SAVE BITS SET DURING OPERATION IN RHDS1 
011637 001124 (SP) OuSGODAT ; SAVE FOR PRIN 


TOUT 
022605 )+,R5 ; DURING ~ at a ah iat ONLY MOL!OPR! VV 


; SHOULD 
001405 66$ BRANCH NG GOOD 
010537 001126 RS, d#SBDDAT : BAD 
019337 0904600 R3, J#REGADR SFATLING MREGISTER RHDS1 














——— 
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DZRIIA.P11 734 READ DATA (0°S) 
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SEQ 0181 


024274 104063 ERROR 63 ;OURING ABOVE OPERATION ONLY 
;MOL!DPR!VY SHOULD BE SET 
024276 66S: 


;#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


024276 004037 041270 JSR RO, d#F ILLRE ;MOV 0 INTO SAVED RHWC 

Oe430e O0ee7e RHWC ; SAVED REGISTER TO CHANGE 

024304 000000 0 TA 

024306 904037 041270 JSR RO, J#F ILLRE MOV REINTO+<256.*2> INTO SAVED RHBA 
Ce43le O0ee74 RHBA :SAVED REGISTER TO CHANGE 

024314 904534 REINTO+<256. #2) ;DATA 

024316 004037 041270 JSR RO, J#F ILLRE 1 INTO SAVED RHDST 

Oe43ee 002304 RHDST SAVED REGISTER TO CHANGE 


024324 000001 1 :DAT 


;*NOW COMPARE REGISTERS BEFORE READ DATA WITH 
: AFTER COMMAND 


024326 004037 942354 JSR RO, d#COMREG ‘PRESENT ete REGISTERS WITH 

024332 O046le SAVERE :GO0D DATA SAVED IN ’SAVERE’ 

024334 002354 WC TEST DATA STARTING FROM 'RHWC’ 

024336 000022 18. :18. REGISTERS TO E3 COMPARED - 
D24340 024344 1$ RETURN TO I$ ON ERROR 

Oe4342 024350 es ;RETURN TO 2$ ON NO ERROR 


024344 104033 1$: ERROR 32 sie’ S CAUSED IMPROPER REGISTER 


024346 000207 
‘Gob DATA GIVES WHAT SHOULD BE THERE 
“RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
cm aap INTO BUFFER WiLL BE CHECKED TO SEE THAT READ 


024350 004037 O43404 JSR RO, J#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
024354 002470 WRF ROM ;GOOD DATA STARTS FROM WRFROM 
024356 003534 REINTO ;TEST DATA STARTS FROM REINTO 
0243 ' e- 3256. WORDS TO BE COMPARED 
024364 024372 4$ RETURN TO 4% ON NO ERROR 


024386 104034 33: ERROR 34 ;READ DATA COMMAND 
024370 000207 RTS PC READ INCORRECTLY 


024372 4$: 





maz yeecet t 1-DIRII=8, RPo4 5 6 


“ 
3 
Jot 


-3-3 “9 
Neto 


CUNO UU IUTU ITO 
J 


UCU TOTOTU UT 


acu 


eC) 1" 


4432 
Oo4434 


oo1c00 


009535 
O4i3&& 


041236 
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efak Dara o's) 


CO4E04 


Fe pear e get cee ig tarp pean teiminibiatal 
SATEST 3s WRITE’READ DATA (1°S & 125252) 


THIS TEST GIVES A WRITE DATA COMMAND FRO CYLINOER 9 
RACK 5. SECTOR O, KEYS 0, 200 W ORDS | OF ALL ONES 
THIS SECTOR Is cotnateD BY PREV 79 us T 

THEN READ DAT MAND IS GIVEN FOR oe WORDS IN 


2 i eo oe oe 





SANE RSLINDER. ook SECTOR KEYS 
WRITE FROM BUFFER AND READ INTO SUFFER ARE FILLED wITH 
200 ONES AND S& 125 


ND _56 
THE WRITE ORTR COMMAND IS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN SO IS GIVEN TO WRITE OATS 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 OF ZEROS 
AND 56 OF 377, WRITE FROM BLFFER IS FILLED WITH 200 ONES 


AND S& 
THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 
GO IS GIVEN 


ALL REGISTERS ARE CHECKED 
READ CATA IS CHECKED 


- SRLERERELESRASESRHESES SLE SA SAR SSE E RESALE ESLER LES ELSE EEE ES OFS EEE 
SCOP 


+4735. E 
MOV sSTACK,S sRESET STA 
MOV #35, rate : SAVE Test “NUMBER 


JSR PC, deCLlorsKk ;SET_R1-RHCS1, + yaaa 


;GIVE 
;SETUP UNIT NUMBER 
;#NOW FILL WRITE FROM SUFFER -200 OF 1°S AND SE OF 125252 


JSR RO, JHCLAREA ;CLEAR 200. WORDS, FROM WREROM 
WRFROM | :STARTING FROM WREROM 
200. : 200. WORDS 

=! SFILL WITH -1 

ISR RO. JBCLAREA :CLEAR Sb. WORDS , FROM WREROM+: 200. #2> 
WRFROM+< 200, #2) page -STARTING FROM WRFROM+< 200. #2> 
125252 “FILL WITH L25eS2 


;#NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
:*#WRITE FROM BUFFER SO THRT AFTER A WRITE COMPARISONS 
;#CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE SUFF 


ee eee a ne te eee a ee 
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DZRIIA.PLL “T38SWRITE-READ'DATA (1'°S $ 125252) 
Se5o p2u43E QOMOST DM1236 JSR RO, DBCLARE CLEAR 200. WORDS, FROM REINTO 
g , O42 J , J8CLAREA 
ese Geugas pose REINTC Sra IG EROM Re tnre 
Soe? Oe4444 000310 200. 
pose OSH 100707 =! ‘FILL WITH 1 
S530 24450 004037 041236 JSR QeCLAREA = ; CLEAR S&. WORDS, FROM REINTO+<200. 42> 
5631 9284454 004354 BE INTO 2oH #3) ;STARTING FROM REINTO+: 200. #2) 
S632 Oo445s 00007 56. ;56. WORDS 
5833 Jee4sc 125352 1es252 ;FILL WITH 12s252 
See 
3538 ;*NOW WRITE DATA COMMAND WILL BE LOADED 
5638 
S639 oe4462 O04037 043240 JSR «RG, S#RUN ;SETUP_TO RUN FOR DATA COMMAND 
S640 dS4yes 900000 0 :CYLINOER O 
S41 Oe4470 000 BYTE 69 Seton 0 
Se42 OSW7i 009 BYTE 0 K 0 
S643 924472 177470 -200. SUORO COUNT = 200. 
Se44 Oou7y = O02470 WRFROM :BUS ADDRESS 
S645 ; STARTING ADDRESS OF DATA 
5o4e :BUFFER = WRFROM 
Sé47 224476 og0900 0 :09 NOT INHIBIT BUS ADDRESS INCREMENT 
Se49 de4soo 6915000 FMT 22 & BITS PER WORD F 
Ee-5 ‘56 NOT INHIBIT ECC “CORRES TION 
ze :09 NOT INHISIT HEADER COMPARE 
5651 o24soz ooa442 WRIDAT :GET READY TO D0 A WRIDAT 
5652 WRITE DATA WITH 60 IN Ruest 
ered 
5655 ;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 
=) 
5657 o24504 904037 041534 JSR «RO, aBSAVER :SAVE REGISTERS 
S658 de4510 02272 RHLIC RHC 1S THE FIRST REGISTER SAVED 
5653 O24512 do4e12 | SAVERE STARTING ADORESS OF WHERE 
5E65 ; THE REGISTERS ARE SAV 
661 O24514 o00022 12. NUMBER OF REGISTERS 
bbe :SAVED = 18. 
S664 G24S1& 004737 041446 Is PC,2HCHECKT — ; CHECK DVA,RDY,MOL DPR,DRY VV = 3 
S665 : END THAT NO StATUS arts ARE STUCK = 
SESE O24S22 104400 obe4O2 TYPE =, CPHALT ;CANNOT CONTINUE TESTING IF ANY oF 
iar {THE FIRST SET OF BITS DON'T = 
| $668 GeN526 000000 HALT :STOP 
£670 o24530 013777 oOc4606 155530 NOY GARPYVEC, ARPVEC SET RPOH VECTOR ADDRESS 
571 , TINEL IF PoCLOCK IS PRESENT 
| S72 ‘OR TQ *TIMES* IF B-CLOCK IS NOT PRESENT 
| 673 . IME* WILL ONLY SAV 
| 5674 SCURRENT CYLINDER ADDRESS 
| He SAND LOOK AHEAD REGISTERS 
| 5677 
| 


ee ae ne ae ae eae Ne eS 






































ae + a ee += 


S24654 
024656 


024676 


Cel1-DORIT-8, RPOY 


138 


O13746 
OS2716 


012677 


913046 
OS2716 


011637 
Ce2500 


2746 
1637 
e605 


Bo5551 


5. 
WRI 


peer 
001124 


001126 
004820 


041270 
041270 


041270 


& FUNCT. CONT. TST-P 
E-READ DATA (1°S 8 legese) 


S4$: 
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MOV QHHRIDAT ~{SP) ;GET READY 19 MOVE | COMMAND 
BIS E, (SP) :GET READY TO SET ° ANG 
- ENABLE ONTERROET 
MOV (SP)+, JRHCS1 #69, a. | 
N RHCSL FOR WRITE DATA 

Atty INTERRUPT ENABLED 

:30VE RHCS1 DURING ABOVE OPERATION 

SAVE ROS! DURING AROVE OPERATION 


16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


MOV JR, RG 
MOV aks, RS 


;#ONE REVOLUTION = 


WAT ;WAIT FOR ROY BIT TO SET 
RHCS1 sWALT FOR RHCS1 REGISTER 
RDY WAIT FOR RDY BIT IN RHCS!1 REGISTER 
aa6" ‘a LOW 9080 MICRO SECONDS 


MUST SET BETWEE 
690 AND 17470 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS] ALREADY SAVED IN 
;#RC AND RS IMMEDIATELY AFTER GO 


MOV QaWRIDAT,-(SP) ;SAVE COMMAND 

BIS IE! GOrDvA, (SP) : INCLUDE 1E260! ova 

MOV (36) 9 GDDAT :SAVE FOR PRINTOUT 

CMP (SP) i: :DURING ABOVE OPERATION ONLY IE!GO!DVA 
:AND COMMAND SHOULD BE SET 

BEQ 4s :BRANCH IF 

MOV RO, 2#SBDDAT AD 


MOV R1, J#REGADR i PATLING REGISTER RHCS1 


ERROR 2! :DURING ABOVE OPERATION ONLY 
AND IE'GO!DVA SHOULD SE SET 
MOV anol DPRIVY. -(SP3 - SAVE BITS SET DURING OPERATION IN SHOS1 
MOV (SP) aB$GDDAT  ;SAVE FOR PRINT 
CMP (5P)4, : DURING RBOVE | OPERATION ONLY MOL!CPRE VY 
: SHOULD B 
BEQ GES 


; BRANCH IF 2600 
TA 


A 
;FAILING REGISTER RHOS1 
URING ABOVE OPERATION ONLY 
ROL! DPR! VV SHOULD SE SET 


MOV RS, J#$B0DAT 
MOV RS, , J#REGADR 


;#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


sSR RO, J#F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC ; SAVED REGISTER TO CHANGE 


‘MOV WRFROM+<200.#2> INTO SAVED RHBA 
: SAVED RESTS TER TO CHANGE 


1 hte. SAVED RHDST 
Saved REGISTER TO CHANGE 


A 
¥ p de 
0 

My RO, J8F ILLRE 
WRFROM+<200. #2> 

JSR 


RO, d8F ILLRE 
RHDS 


Pil 
Pil 


024700 
024704 


24740 
Ce474e 


o24744 
024744 


024770 
024772 


SaLI-DERII<8 





CO4037 


004612 


004937 
003534 


904737 


oc0cca 
pega, 


000377 


RPOYS“S FUNCT. CONT. TST-PT 1 
WRITE “READ DATA (1'°S & 126282) 


1$: 


At) 
ta 


33: 


43: 


MACYI1 27(655) 
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; #NOW ye REGISTERS BEFORE WRITE CATA WITH REGISTERS 
: AFTER COMMAND 


JSR RO, J8COMREG 





COMPARE SAVED REGISTERS WITH 
;PRESENT V 
:G000 DATA SAVED IN *SAVERE 
;TEST DATA STARTING FROM "RHC" 
:18, REGISTERS 10. BE COMPARED 
SRETURN TO 1$ ON ERR 

TRETURN TO 28 ON NO ERROR 


ft DATA cre rn 
; IMPROPER REGIST HANGE 
GOOD DATA GIVES fHAT SHOULD 


‘RECEIVED DATA GIVES WHAT WAS 
;THERE AFTER COMMAND 


;*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 


ERROR 36 
RTS PC 


Bn "ro RO, J#COMPAR 


;COMPARE TWO BLOCKS OF MEMORY 

000 DATA STARTS FROM REINTO 
TEST DATA STARTS FROM WRFROM 

5255. WORDS TO a COMPARED 
SRETURN TO 3$ 0 ROR 

RETURN TO 4§ ON NO ERROR 


;WRITE DATA COMMAND CHANGED 
;WRITE FROM SUFFER 


;*NOW & READ DATA COMMAND WILL BE GIVEN 
;*FILL READ INTO BUFFER WITH 200 ZEROS AND S6& OF 377 


JSR PC, d#CLOISK 


JSR RO, J#CLARER 
RE INTO 
e200. 


ISR RO, JBCLAREA 
REINTO+< 200. #2) 


377 





+ R1-RHCS1, Re-RHCS2 


E 

:CLEAR 200. WORDS, FROM REINTO 
:STARTING FROM REINTO 
:200. WORDS 

FILL WITH O 


;CLEAR 56. WORDS, FROM REIN TQ+< 200. #2> 
56. :STARTING FROM REINTO4<3C0. #2> 


RDS 
sFILL ANT 377? 


MAINDEC@11-DIRII=8 


DIRIIA.P1L 


S804 25020 
580s BSenSe 


06 925056 
5897 02502; 

08 025030 
5809 25032 


58i2 925094 
5813 025036 


S816 25040 


S8eS ces0S2 


5829 o2c0s4 
2631 025060 
E833 oes064 
5835 025066 





738 


004037 
poa4" 

00310 
177777 


004037 
003000 
800 
009 
177470 


0C3524 


o90699 
014000 


J02446 


004C3? 
00¢27e2 
O0461e 


co00e2 


004737 
104400 
cococe 
013777 


RPOY 5.6 FUNCT. CONT. TST 
WRITE READ DATA (1°S & 125252 


041236 
041236 
042240 
eYTE 
BYTE 
o41524 
o4144e 
obe4de 


C4606 155172 


i ee em ee ee ee ee 


“PT 1 = MACY11 €7(655) 30-NAR-76 22:59 PAGE 126 


;*FILL WRITE FROM BUFFER WITH 200 ONES AND S& OF 377 


ISR RO, J#CLAREA :CLEAR 200. WORDS Fron WREROM 
WREROM ; STARTING FROM WRERO 

290. 200. WORDS 

-} ‘FILL WITH -1 

ISR RO, J#CLAREA :CLEAR Sé. WORDS, FROM WREROM+<209. <2> 
WRF ROM +< 200. #2> ak “STARTING FROM WRFROM+< 200. #2> 
rea ‘FILL WITH 377 


;*NOW FILL COMMAND 


JSR RO, 2eRUN sSETUP TO RUN FOR DATA COMMAND 
0 :CYLINDER O 
0 : SECTOR 
5 : TRACK O 
200. :WORD COUNT = 200. 
REIN :BUS ADDRESS 

:STARTING ADDRESS OF DATA 
:BUFFER = REINTO 
0 :DO NOT INHIBIT BUS ADQRESS INCREMENT 
ECI!FMT22 -1 BIT S PER WORD F 

s INHIBIT’ bee CORRECTION 
:00 NOT INHIBIT HEADER COMPARE 

READAT -GET READY TO DO A READAT 
;READ DATA WITH 70 IN RHCS! 


;#NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


sR RC, aeSAVER SAVE REGISTERS 
HWC RHWC IS THE FIRST REGISTER SAVED 
SRSRE ‘STARTING ADORESS OF WHERE 
THE REGISTERS ARE SAVED 
12. NUMBER OF REGISTERS 
ISAVED = 18. 
ISR PC, JHCHECKT :CHECK DVA,RDY, MOL OPR DRY WV = ee 
:AND THAT NO STATUS B 2 ARES = 1 
TYPE _, CPHALT : CANNOT CONTINUE US alts ¢ ity “5 
THE FIRST SET OF BITS Bone T= 
HALT ST OP 


MOV DBRPYVEC , IRPVEC :S67 RPOY VECTOR ADDRESS 
TO 'TIMEL* IF P- =CLOck IS PRESENT 
:OR TQ" iiMee at IF P-CLOCK IS NOT P 
IME* WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 


ESEN 








T 
‘ 





MAINDEC@11 
DZRJIA.P LL 


025074 
925100 


OeSie4 


025126 
025132 
925136 
025142 


925144 


025156 
025160 
025164 
025170 


EG 


735 


O13746 
052716 


Boiza7 


013746 


104021 


012746 
011637 
022605 


104053 


004037 


002304 





“DIRII-6, RPOW’S’6 FUNCT 
RITE/READ 


W 


002446 
000101 


155170 


Od244S 
004101 
001124 


001126 
004609 


010500 
001i2e4 


041270 


041270 


041270 


f 
DATA 


mn NT. 


a 
~3 
w 


TST- 
(1°S “4 12g2se3 


MACYL1 27(655) - 


MOV aaREADAT =(SP) 
BIS CSP) 


MOV (SP)+,3RHCS1 


;#COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:#RO AND RS IMMEDIATELY AFTER GO 


MOV DHREADAT, -(SP) 

BIS BIE'GO!DVA, (SP) 

MOV (SP), J8SGDDAT 
(5P)+,R0 
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;AND LOOK AHEAD REGISTERS 


° 
s 


BE 67S 

MOV RO, a#SBDDAT 

MOV Ri; J#REGADR 
ERROR 21 ; 
MOV HMOL!DPR!VV. -(SP3 
MOV (SP) J8SGDDAT 
CMP (5P}4$,R5 

BEQ 


69$ 
MOV RS, a#S8DDAT 
MOV RS, , JBREGSOR 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, d#F ILLRE 
RHWC 


0 
JSR RO, J#F ILLRE 
RHBA 


Mean TOocese. #2> 
JSR RO, d#F ILLRE 


~ T 


‘SAVED REGISTER TO CHANGE 


+ SAV 
-SAVE FOR PR 


















SEG 0187 


;GET READY TO MOVE ne 
GET READY TO rt *GO’ AND 
ah 


N RHCS1 FOR READ DATA e 
AtTH INTERRUPT ENABLED 
:SAVE RHCS1 DURING ABOVE OPERATION 

:SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR ROY BIT TO SET 
;MAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 PEGISTER 
ALLOW 9080 MICRO SECONDS 
ROY MUST SET BETWE 
650 AND 17470 MICRO SECONDS 


;SAVE COMMAND 

INCLUDE IE!GO!DVA 

SAVE FOR PRINTOUT 

; DURING ABOVE OPERATION ONLY IE!GO!DV 
AND COMMAND SHOULD BE SET 

BRANCH TF GOOD 


FAILING meaisiee RHCS1 
:DURI 


HOULD BE SET 
BRINE SET DURING OPERATION IN RHOS! 
;DURING ABOVE OPERATION ONLY MOL! DPR! VY 
;SHOULD BE SET : 
fey GOOD 
FAILING REGISTER RHDS1 


:DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV SHOULD BE SET 


;MOV_O INTO SAVED RHWC 
s SAVED REGISTER TO CHANGE 


MOV PREINTO#<200. ®2> INTO SAVED RHBA 
: SAVED a) TO CHANGE 


“MOY 1 rive. CAVED RHDST 


eel 11-DERII<A, RPOW ei ‘6 FUNCT. 


JIA.PL 


025234 


02S236 


025254 
025256 


025260 


025276 
SeS30C 


025302 





738 
209001 


004037 


904612 
002354 
o00022 
925254 
025260 


104033 
000297 


004037 


0eS3Ge 


194034 
900207 


042254 


py24o4 


CONT. 


TST-PT 1 
WRITE’RESO DATA (1°S 3 12ease) 


Ss: 


&$: 


- 


w 


i 


COMPARE RE 
SYTH REGIS 


JSR 
SAVERE 


:#NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


JSR 
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GISTERS 
TERS AF 


RO, J8COMREG 


33 
PC 


RC, J#COMPAR 















SEQ 0188 


;DATA 


BEF a ay DATA COMMAND 
TER COM 


pa, ae REGISTERS WITH 
:PRESENT VALUE 

:GO00D DATA SAVED IN ’SAVERE’ 
;TEST DATA STARTING FROM ’RHWC’ 
318. REGISTERS TO BE COMPARED 
;RETURN TO S$ ON ERROR 

;RETURN TO 6$ ON NO ERROR 


;READ DATA re IMPROPER 
REGISTER CHANGE 

GOOD DATA GIVES WHAT SHOULD SE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


; COMPARE TWO BLOCKS OF MEMORY 


3R 7$ ON ERROR 
; RETURN TO 10$ ON NO ERROR 


; INCORRECT DATA AFTER 
sR ITE Dara FOLLOWED BY 8 





MAINDEC=11-DZRJI-A, RPCY’S“6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-NAR-76 22:59 PAGE 129 SEG 0189 


DZRIIA.PLL 


S965 025316 


5972 OeS3¢e 
$973 025326 
025330 


5975 025332 


$982 025334 


Egec | 025344 


136 


000004 
012706 
012737 


004737 


125252 


pons. 


Le52Se2 


WRITE’READ DATA (1eSe52) 


001000 
00CG3 


041366 


041236 


041236 


054604 


bp RR RRR ERE R REAR AE RE REE HAAR RARER RARER AER E REE EEE EASED EEE EERE 
; TEST 36 WRITE/READ DATA (125252) 


THIS TEST GIVES A WRIT para COMMAND FOR CYLINDER C 
TRACK 9 SECTOR 0, KEY 256 WORDS OF 125252 
HIS SECTOR IS FORMATED By PREVIOUS TEST 
THER READ DATA COMMAND 1S. GIVEN FOR 256 WORDS IN 
SAME CYLINDER, TRACK, SECTOR, KEYS 
WRITE FF FROM BUFFER ND READ OF ATO BUFFER ARE FILLED WITH 
THE RRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATI 


Seer eter ee et ae et anata 


be 


THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 256 OF ZEROS 

WRITE FROM BUFFER IS FILLED WITH 

256 OF leSeSe 

He tot EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 


ALL RESISTERS ARE CHECKED 
READ DATA IS CHECKED 


eo eee ee ae ee ee ee we ae ae 


* REFRLAREREHLA SKA SSL LS SARLE RELA ELRSLEAARA RHEE FRAAERFEERSSELLFELFEE 
+4736: SCOPE 
MOV #STACK, SP sRESET STACK 
MOV 836, J#TSTNM :SAVE TEST NUMBER 
JSR PC, J#CLDISK SET RI-RHCSI, R2-RHCS2 
Ro RHDS1, R4Y-RH 


ati UNIT NUMBER 
;*NOW FILL WRITE FROM BUFFER - 256 OF 12eS2Se2 


JSR RO, J&CLAREA :CLEAR 256. WORDS FROM WRFROM 
WRFROM : STARTING FROM WRERO 

256. :256. WORDS 

125252 :FILL WITH 125252 


;*NOW READ INTO BUFFER WILL BE_FILLED WITH ot CATA _AS 
;#WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
:*#CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE SUFFER 


JSR RO, J#CLAREA -CLEAR 256. WORDS, FROM REINTO 
REINTO :STARTING FROM REINTO 

256. 256. WORDS 

125252 FILL WITH 125252 











DZRIIA.P1Ll 


025246 


02352 
025364 


025366 


025370 
025374 
025376 


025400 


025492 
025406 
G2S412 
025414 


025422 
DeS426 


025432 


025436 
025440 


: 
i 


T36 


004037 
090000 
000 
_000 
177400 
9024 ¢ 0 


000000 
010000 


oo244e2 


0904037 
0Ce=?, 
0046 12 


oo0d22 


004737 
104400 
000000 
01377 


013746 
052716 


012677 


043349 


041534 


O41446 
066492 


OO4606 


02442 
000101 


1S4642 


MAINDEC-11-DZ2RJI-R, RPOY’S “6 FUNCT. CONT. TST-PT 1 
WRITE/READ DATA (125252) 


ISHE44 


JSR RO, J#RUN ;SETUP_ TO RUN FOR DATA COMMAND 
Q CYLINDER O 
-BYTE 9 :SECTOR O 
BYTE 9Q ; TRACK 0 
-256. ;WORD COUNT = 256. 
WRF ROM BUS ADDRESS 
; STARTING a OF DATA 
FFER = WRFROM 
) ‘D0 NOT INHIBIT BUS oe INCREMENT 
FMTee 16 BITS PER WORD FORM 
:00 NOT INHIBIT ECC RORRECTION 
:D0_NOT INHIBIT Ss COMPARE 
WRIDAT : GET DY TO DO A WRIDAT 
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;*NOW WRITE DATA COMMAND WILL BE LOADED 


















REA 
;WRITE DATA WITH 60 IN RHCS1 






;#NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 






















ISR RO, J#SAVER :SAVE REGISTERS 
RHWC ‘RHWC IS THE FIRST REGISTER SAVED 
SAVERE ; STARTING ADDRESS OF WHERE 
:THE REGISTERS ARE SAVED 
18. s NUMBER OF REGIST ERS 
JSR PC, JRCHECKT ;CHECK DVA,RDY,MOL,DPR,DRY,VV = 
:AND THAT NO STATUS BITS ARE stuck =} 
TYPE ,CPHALT ; CANNOT CONTINUE TESTING IF ANY OF 
THE FIRST SET OF BITS DON’T = 1 
HALT STOP 
MOV DBRPYVEC, IRPVEC ; sSET RPO4Y VECTOR ADDRESS 
: TO TIME IF P-CLOCK IS PRESENT 
30R TO *TIMEe’ IF P-CLOCK 1S NOT PRESENT 
:* TIME’ WILL ONLY SAVE 
‘CURRENT CYLINDER ADDRESS 
:AND LOOK AHEAD REGISTERS 
MOV JSWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
BIS #G0! TE, (SP) :GET READY TO SET "GO’ AND 
ENABLE | INTERRUPT 
MOV (SP)+, IRHCS1 ;60 WITH 
-60 IN RHCS1 FOR WRITE DATA 
. :WITH INTERRUPT ENABLED 
MOV JR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV JR3,RS :SAVE RHDS! DURING ABOVE OPERATION 


;#0NE REVOLUTION=16870 MICROSEC, ONE SECTOR=760 MICROSEC 









DZRJIA.P 11 


6066 925520 

0eSS2e 
Pore 025526 
6069 OeSS3e 
6071 025534 


6075 025534 


£07: 
6079 025550 
60 025552 


60 
6089 OeSS564 
6091 025570 


6094 Seer 


a eee 


T36 


19441e 


001507 


913746 


104063 


004037 


000001 


004037 
0046 12 


025602 


MAINDEC-11-DZ2RII-A, RPOW/S’6 FUNCT. CONT. TST-PT 1 
WRITE/READ DATA (125252) 


00e44e 


004101 


001124 


001126 
904600 


0:0500 
001 


O1124 


001126 
004600 


041270 
041270 


041270 


042354 
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WAT ;WAIT FOR ROY BIT TO SET 

RHCS1 :WAIT FOR RHCS1 REGISTER 

DY WAIT FOR ROY BIT IN RHCS1 REGISTER 
308. ; ALLOW 9080 MICRO SECONDS 

839. Y MUST 





S 
690 AND 17470 MICRO SECONDS 


; COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;#RO AND RS IMMEDIATELY AFTER GO 









MOV DBWRIDAT,-(SP) ;SAVE COMMAND 

3IS sIE'GO'DVA, (SP) INCLUDE 1E2G02DvA 

MOV - (Sp) JeSGDDAT 5 SAV VE FOR PRINTOUT 

CMP (SP )4°RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
COMMAND SHOULD BE SET 






ND 
BEQ 64S ; BRANCH IF GOOD 
;BAD DATA 


MOV RO, d#S8DDAT 
MOV . R1, J#REGAOR sFAILING REGISTER RHCS1 

21" DURING ABOVE OPERAT ION ONLY 
on TE!GO!DVA SHOULD BE SET 







64$: MOV anol OPR! VV. -(SP3 AVE BITS SET DURING OPERATION IN RHDS! 
MOV (SP) asSGDDAT  ;SA VE FOR PRINTOUT 
CMP (Sp)s RE DURING ABOVE OPERATION ONLY MOL!DPR! VV p 
:SHOULD BE SET 





BEQ 66$ :BRANCH IF GOOD a 
DATA 


MOV RS, d8SBODAT :8 
MOV R3, JHREGADR FAILING REGISTER RHDS1 
63° ;DURING ABOVE OPERATION ONLY 
sMOL!DPR!VV SHOULD BE SET 







b6$: 






;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC s SAVED REGISTER TO CHANGE 


;MOV_WRFROM+<256.*2> INTO SAVED RHBA 
:SAVED REGISTER TO CHANGE 


1 IKTO SAVED RHDST 
sSBVED REGISTER TO CHANGE 








0 
JSR RO, J#F ILLRE 


RH 
WRFROM+< 256. *2> 
JSR RO, J#F ILLRE 






;#NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
;*#AFTER COMMAND 








JSR RO, J#COMREG ;COMPARE SAVED REGISTERS WITH 
ENT ~ 


: PRES 
SAVERE Geer DATA SA M2 IN *SAVERE* 
Wc TEST DATA STARTING FROM *RHWC* 
18. :18. REGISTER 


Ss TO Se aeeenen 


1$ ;RETURN TO I$ ON ERR 
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WRITE/READ DATA (12SeSe2) 


DZRJIA.P1l 736 
$095 025600 025606 
§996 


pbag Beeens 


$100 


OeSbe4 
025626 


025630 
025530 


025634 


025644 


O2S646 


TO oO oO 


WW) br pr bm hed on ohh te HE hd hd Al 


0eS656 


foplemlealsalcalealealeslealcalealealealialealsalealsalealealoalsalsalesloalcalealealeaioalealsalealialcalealsaleal salsa 
ee eb be ee eb he be he be 0 bmn he be me be he Be fe a be hs Bo hs bs bs be he ne 


6145 OeS660 
6146 OeS664 
6147 O25666 
6148 025667 


bbda8? 


aA 


104026 
000207 


004737 


004037 


125252 


004037 
000000 
000 
000 


043404 


041366 


041236 


041236 


043340 


1$: 


2s: 


4$: 


2s ;RETURN TO 2% ON NO ERROR 
RROR S ATA COMMAND CAUSED 

Ris BC tHNRSP R REGISTER change 
G00 DATA GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


;*NOW WRITE FROM BUFFER WILL CHECKED FOR NO CHANGE 


JSR RO, dJ#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 

REINTO - ;GO0D DATA STARTS FROM REINTO 

WRF ROM ; TEST DATA STARTS FROM WRFROM 
3256. WORDS TO 

3$ ;RETURN TO 3% ON OR 

4$ ;RETURN TO 4$ ON NO ERROR 

ERROR 36 ;WRITE DATA COMMAND CHANGED 

RTS PC ;WRITE FROM BUFFER 


;*NOW A_READ DATA COMMAND WILL BE_GIVEN 
;*#FILL READ INTO BUFFER WITH 256 ZEROS 


JSR PC, J#CLDISK :SET RI-RHCS1, R2-RHCS2 
:R3-RHDS1 
: GIVE R11 INITIALIZE 
SSETUP U B 
ISR RO, J¥CLAREA : CLEAR yet WORDS FROM REINTO 
REINTO ; STARTING FROM REINT 
256. WORDS 


FILL WITH O 


;#FILL WRITE FROM BUFFER WITH 2S6 OF 125252 


JSR RO, J#CLAREA ;CLEAR 256. WORDS FROM WRFROM 
WRFROM STARTING FROM WRFRO 

256. 256. WORDS 

125252 ‘FILL WITH 125252 


;*NOW FILL COMMAND 
SR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
;CYLINDER 0 


STRACK 0 





=) 


a2 


Coorruwna 3 


hb 0 be bs 8 Be be bb bb be he pe bo ho pe bo be be = 0 be he 


4 
—~c) 
»>m 


PR SSB VER LO O.B VOU 2 ode we GOUT EWU Bee SUT Le OPO ae 


6 
6 
6 
6 
6 
& 
-) 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
& 
6 
6 
6 
6 
6 
6 
6 
& 
6 
6 
6 
6 
E 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 


6199 


Ww 
on 


La) 
D' 


ll 
025570 
OeS67e2 


O2S€74 
025876 


025700 


025702 


025726 


025734 
025740 


025744 


736 


177400 
003534 


000090 
0140CC 


002446 


004037 


004737 
1044C0 
000900 
013777 


013746 
052716 


012677 


001507 


11-DZRJI-A, RPO4Y/S’6 FUNCT. CONT. TST-PT 1 


WRITE/READ DATA (125252) 


041534 


O41446 
066402 


G04606 


OO2446 
009101 


154330 


154332 


-2S6. 
REINTO 


MACY11 27(65S) 


a] 
ECI!FMT2e 


READAT 
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;WORD COUNT = 256. 


;BU 

: STARTING yn OF DATA 

BUFFER = 

:D0 NOT INATBIT BUS oe to Eran 
BITS 4 re ORD F 

; INHIBIT’ Eee CORRECT 

:00 NOT INHIBIT ee? COMPARE 

‘GET READY TO DO A READAT 


:READ DATA WITH 70 IN RHCS1 


;#NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR 
RHW 
SAVERE 
ig. 


JSR 
TYPE 
HALT 
MOV 


RO, d#SAVER 


PC, J#CHECKT 
» CPHALT 


QBRPYVEC,ARPVEC ; 


JHREADAT, -(SP) 
#GO'IE, (SP) 


(SP)+, JRHCS1 


dR1,RO 
aR3,RS 


jane REGISTERS 
;RHWC_ IS THE FIRST REGISTER SAVED 
; ESS OF WHERE 


; CHECK DVA,RDY,MOL,DPR,DRY, VV = 1 
AND THAT NO StaTUS BITS ARE aoe 1 


CANNOT CONTINUE TESTING IF _ANY 
iT c FIRST SET OF BITS DON’T = 


ioe! RPOY VECTOR ADDRESS 
310 *TIME1’ IF P-CLOCK IS PRESENT 
39R TO *TIME2’ ‘i? a IS NOT PRESENT 


WILL ONL 
‘CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


;GET READY 1 MOVE COMMAND 
GET READY TO ri *GO’ AND 
‘oa 


IN RHCS1 FOR READ DATA 
sAittH INTERRUPT ENABLED 
:SAVE RHCS1 DURING ABOVE OPERATION 
:SAVE RHDS1 DURING ABOVE OPERATION 


SMAIT FOR RDY BIT TO SET 
;WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT _SECOHOS REGISTER 


BE TWEE 
690 AND 17470 MICRO SECONDS 


;#COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:*RO AND RS IMMEDIATELY AFTER GO 





SEQ 0193 














6203 





ist ath pd 






CEOGGOS 


o 
fw 
Oe ar ya ed 


DO ITN Wow 





forururorurorurore 







































DZRJIA.P11 


026024 
026030 


026046 


025046 


026074 


026076 


0261092 
026104 
026106 
aseiis 


eblie 
026114 
026116 


136 


013746 


Oriea? 
022600 


104063 


004037 


000091 


004037 
0046 12 


0e6120 


104033 
000207 





MAINDEC-11-D2RJI-A, RPOW/S’”& FUNCT. CONT. TST-PT 1 


WRITE/READ DATA (1eSeSe2) 


002446 
f 4101 
1124 


001126 
004600 


001126 
004600 


041270 


041270 


o41270 


042354 


67$: 


69S: 


S$: 


— - ee + ee 
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scaeth -(SP) 


He bagabba (SP) + ACLUB 


e ea, 


Ove 


(SP )+,R DURING ABOVE OPERATION ONLY IE!GO!DVA 
: AND ta SHOULD BE SET 

675 ; BRANCH IF GOOD 

RO, d#$8DDAT ;BAD DATA 


FAILING REGISTER RHCS1 


R1; J#REGADR 
el’ ; QURING ABOVE ea tty ONLY 


“COMMAND AND IE'GO'DVA SHOULD BE SET 
#MOL! DPR! VV, -(SP3 VE BITS SET DURING OPERATION IN RHOS1 
(SP). J#SGDDAT ; SAVE FOR PRINTOUT 
(SP)+,R5 ‘DURING ABOVE OPERATION ONLY MOL!DPR! VV 

:SHOULD BE SET 
69S ; BRANCH IF GOOD 
RS, a#SBDDAT ATA 


FAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV SHOULD BE SET 


R3, J#REGADR 
63° 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR 
RHWC 


0 
JSR 


REINTO+<256. ¥2> 
JSR 


;MOV_O INTO SAVED RHWC 
; SAVED REGISTER TO CHANGE 


MOV REINTO+<256.#2> INTO SAVED RHBA 
:SRVED REGISTER TO CHANGE 


1 INTO SAVED RHDST 
Saved REGISTER TO CHANGE 


RO, J#F ILLRE 
RO, J#F ILLRE 


RO, J#F ILLRE 


; ¥COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


JSR 
SAVERE 
W 


ERROR 
RTS 


;#NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 





pala SAVED REGISTERS WITH 

; PRESENT Maen 

:GO00D DATA SAVED IN *SAVERE’ 
TEST DATA STARTING FROM "RHWC’ 
:18. REGISTERS TO 3 COMPARED 
RETURN TO S$ ON ERROR 

RETURN TO &$ ON NO ERROR 


33 ;READ DATA Ke IMPROPER 

PC REGISTER CHANGE 
:GO0D DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


RO, J&#COMREG 











a] 
t3 
“a 
t~4 
@ 
m 
oO 
o-e- 

fu ~— 
Ue 


or 
o-- 


. 
i] 
uw 
~3 
oO 


oo403° C4394 JSR RO, JBCOMPAR ;COMPARE TWO BLOCKS OF MEMORY 
Bo2470 WRF ROM i geet DATA STARTS FROM WREESM 
T DATA STARTS FROM RE TNT S 


fu 

wo 
apie 
GRBs & 

oc 

ivy) 

ws 

» » 

£¢ 

ps) 

um 

-« 

4 

~4 

oO 


> <0 -< 9 <9 = 9 -e 


536142 13$ 'RETURN To 108 CN NO ERSOS 


se o8 ATA BF TER 
Wea Te DATA F 40 


0 DATA 


, 
LF) 

s 
» 
u 
om 
--o~ 
44) 

od 
- 
«9 
c£ 
1m) 
Gs 
bP 
a 
to 
mm 
yo 
“A 
© 
wy 
Dl 
cys. 


CLLOWED 8 


ou wreryear 
fotitorur ’ 
“ae 
-0o).O(D”) 


B | 
MBINCES|]$11-02RIiNe8, SPOS § § EUNST. CONT. TST-FT ] MAacylL 27.655) 3O-MAR-7S 22:53 PAGE 135 Ss. iS 
. 73 WRITE RERD OATS (125252 

| 
' 
| 
' 
| 
} 
| 
' 
} 
| 

| 


NAINDES=11-0 
DIRIIN.P LL 


furofufufoforuru 
wet 


BeBe: 


A 


patent tet ata ) 


TUTUTUTOTUO ND) 0 + 0 0-20 <0 -+ = 


CuUrmronm a 


{ 


in lore (9.000 NOUN £ tue (9 


CoOOR OP oP OCP an oO” 


CUGotO GIGI GIGIGIG 


c26i79 
Oebi7e2 


926174 
25200 

C2202 
626204 


i 





$010 
in] 


1090 
poce3? 
041366 


O4iESE 


CONT. TST-PT 1 MACYit E7(655) SO-MAR-7& 22:59 PAGE i36 383 5.1% 
PRD “DATA (052525) 


+4737; SCOPE 


x 


pp RRRRRRRRRREAR REESE REL EEE RER REEL LEED LEER EEEREED EEE EERE REESE SESS 
sTEST 37 WRITE/READ DATA (052525) 


THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER C 
TRACK 0, SECTOR O, KEYS 0, 200 WORDS 70 052525 

THIS setTGr 15 FORMATED BY PREVIOUS TEST 

HEN p DATA COMMAND IS GIVEN FOR 256 WORDS IN 

SAME i NDER, TRACK, SECTOR, KEYS 

WRITE FROM BUFFER AND RE READ Far BUFFER ARE FILLED WITH 


eS AND S& OF 
THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS TO WRITE DATI 


eer er ae eeee 
le ee 


THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 
RIND 3 NE aRLTE Ra BUFFER IS FILLED WITH 290 
OROS oF” Eoes AND S& WORD 

THe, Costa EXCEPT 38 es CORDED, ALL REGISTERS ARE SAVED 
S 


ALL REGISTER ARE CHECKED 
READ DATA IS CHECKED 


pRFRPERESASSELALEL ALAA PERELALA RAE RARELA LEAT LELALTA TEAS +t FAA et 


MOY eSTACK, SP :RESET STACK 
MOV #37, a8TSTNM :SAVE TEST NUMBER 


ET, TET TEE ETS EE 


JSR PC, asCLDISk 33E7 RI-RHCS1, + -RHCS2 


a ait UNIT NUMBER 
;#NOW FILL WRITE FROM BUFFER-200 OF SeSeS AND S& OF 377 


ISR RO, JeCLAREA :CLEAR 200. WORDS, FROM WREROM 

WRFROM : STARTING FROM LIRFROM 

200. :200. WORDS 

S2s2s ‘FILL WITH S2525 
ISR RO, JeCLAREA CLEAR sb. rHgRDS FROM WRFROM+< 200. #2> 

LRFROM+< 200. #2> she FROM WREROM+: 200. #2° 
56. 56. worde 

377 *FILL WITH 


;*#NOW READ INTO BUFFER WILL BE ERULED WITH SAME DATA _AS 
;#WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
:#CAN BE MADE TO DETERMINE THAT WRITE OID NOT CHANGE SUFFER 


LL LS see ne-=kgpeeRees=etoa 


. 





Re ett mnt “A, RPOWS-6 FUNCT. CONT. TST-PT | 
DIRIIK.Pil 13? WRITE-RERO BATA (O5eSeS) 
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$325 026206 O04937 041236 ISR RO, BCLAREA “CLEAR 200. WORDS FROM REINTO 
$327 Ses2l2 003534 REINTO ’  tSTARTING FROM REINTO 

$328 026214 909310 200. : 200. 
6359 026216 52525 52525 ‘FILL WITH SeS2eS > , 
5331 026220 CO4037 041236 JSR RO, J#CLAREA CLEAR se. WORDS, FROM REINTO+<209. #2> \ { 
&332 026224 904354 RE INTO#< 209. #2) TARTING FROM REINTO+< 200. #2> 
S233 Cebe2s 900070 58. 556. WO 

$334 026230 000377 37 IFILL arte 377 

Paae 

£33 :#NOW WRITE DATA COMMAND WILL BE LOADED 

£3393 

6340 026232 OO4037 043340 ISR RO, J#RUN :SETUP TO RUN FOR DATA COMMAND 

S241 Oebess o900R0 :CYLINDER O 

$342 026240 599 .BYTE 6 SECTOR O 

$343 26241 99 BYTE «3 TRACK 0 

B344 Oeee42 177470 200. WORD COUNT = 200 

6345 doge44 602470 WRFROM BUS ADDRES 

g546 ; STARTING ADDRESS OF DATA 

6247 -BUFFER = M 

6348 O26246 00000 “ee :D9 NOT Inttery BUS ADDRESS INCREMENT 
6349 d26250 210500 FMTZ2 :16 BITS PER WORD FORMAT 

£350 09 NOT INHIBIT ECC CORRECT TON 

5351 :DO0 NOT INHIBIT HEADER COMPARE 

6252 o26252 o02442 WRIDAT “GET READY TO DO A WRIDAT 

353 ;WRITE DATA WITH 60 IN RHCS1 

cate 

e258 :#NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 

£358 026254 904037 041534 ISR RO, J8SAVER : SAVE REGISTERS 

6359 O26260 Oo2272 RHWC CIS THE FIRST REGISTER SAVED 

5360 OSebeb2 O4e1e SAVERE STARTING ADDRESS OF WHERE 

$351 THE REGISTERS ARE SAVE 

B362 026264 000022 ig. !NUMBER OF REGISTERS 

363 :SAVED = 18. 

S365 O2bE6E OON737 OM144E ISR PC, IBCHECKT : CHECK DVA, ROY, MOL PPR, DRY.VV = 

£266 3 : THAT NO StaT S ARE STU 

6357 Geb272 194400 66402 TYPE  ,CPHALT CERIN CONT TALE we PcFIne IF ANY ye 

5368 ‘ THE FIRST SET OF BITS DON'T = 1 

bs63 026276 oogooo HALT STOP 

637] 026300 013777 OO606 153760 MOV DBRPYVEC, ORPVEC :SET RPOY VECTOR ADDRESS 

£272 :70 ae Me IF P-CLOCK IS PRESENT 

£373 ;0R TO * TIMES" IF p- chock IS NOT PRESENT 
6374 TIME’ WILL ONL 

£375 : CURRENT ASC INDER SCORES 

£276 :AND LOOK AHEAD REGISTERS 

6377 

£379 

£373 CEEZ0G OL374e DOS4He MOV TBWRIDAT, -(SP? 


;GET READY TO MOVE COMMAND 





eT RJI-A, RPOWS’6 FUNCT. CONT. TST-PT 1 


DIRIIA. 13? WRITE/READ DATA (052525) 

6380 026312 oS2716 00010! Bis 
ee) 
= 025316 C1267? 153756 MOV 
385 
§385 026322 011100 MOV 
6386 926324 911305 MOV 
538 
$383 
5383 
5330 
£331 926328 104412 WAT 
$392 026330 992309 RHCS1 
6393 Ceb332 099200 RDY 
6394 026334 901615 302. 
395 926336 001507 339. 
36 
6397 
5398 
£399 #RO 
6400 
6401 O2634G 913746 902442 MOV 
S402 026344 OS2716 OO4101 BIS 
6403 926350 011837 O51124 MOV 
B4oM 925354 022500 CMP 
S 
B406 026356 001495 BEQ 
6407 025360 019037 901126 MOV 
6408 026364 010137 oo4600 MOV 
B03 026370 104021 ERROR 
6411 026372 012746 0O19590 548 MOV 
e412 026376 911637 O01124 MOV 

413 Ce6402 022605 CMP 
6415 OPE404 901405 BEQ 
E416 O2640§ O10537 001126 MOV 
E4i7 O56412 910337 04600 MOV 
x18 026416 104063 ERROR 
6429 o2b420 663: 
421 
g4e2 
b4O3 

| 6424 926420 004037 041270 ISR 

| S¥es Oee4ey 002072 RHWC 
6426 See4e6 000009 0 

| £427 O26430 004037 041270 ISR 

| §428 O26434 902274 

| §459 Q26436 o03310 

| 6430 O2644O 004037 041270 

| §431 O26444 902304 

| €432 See44e 00000: 

£333 

} 

| 
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eGOTIE, (SP) 
(SP)+, JRHCS1 


JR1,RO 
JR3,RS 


RIDAT 5 ($B), 
G0! DvA 
}, a8$6D BoA 7 
)+,R0 


, 28S8DDAT 
. J8REGADR 
, JBSGDDAT 
5 
RS, d#SSODAT 
RS, , J#REGADR 


RC, JF ILLRE 


RO, J#FILLRE 


RH 
WRF ROM+< 200. #2> 
JSR 


RO, 28F ILLRE 





2 
LIOpRiyy, -(SP} 
AT 


;MOV 2 
:SAVED REGISTER TO CHeNGE 
DATA 


30-MAR-76 22:59 PAGE 138 


;GET_REAGY uh rT "GO" AND 
sENAB TERRUPT 


IN 
T 
i aT RHCS1 FOR WRIT DATA 
if 4 INTERRUPT ENA 
SAVE RHCS1 DURING BEOVE OFEPATION 
Save RHDS1 DURING ABOVE OPERATION 





;#ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=750 MICROSEC 


;WAIT FOR RDY BIT 70 SET 
:WALT FOR RHCS! REGIST 

WAIT FOR ROY BIT IN RHCS!1 REGISTER 
‘ALLOW 9080 MICRO SECONDS 

;RDY MUST SET BETWEEN 

:690 AND 17470 MICRO SECONDS 


att CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
AND RS IMMEDIATELY AFTER GO 


;SAVE COMMAND 
INCLUDE IE!GO! ~ 
SAVE FOR PRINTOUT 
5DUR ING ABOVE in ONLY IE!GO!OVA 
AND at ay Be SHOULD BE SET 
: BRANCH IF GOOD 
DATA 


:PAIL ING REGISTER RHCS) 
“DURING ABOVE OPERATION 

MMAND BND 1E1¢0! DVA SHOULD BE SET 

ave RE: S SET DURING OPERATION IN RHDS 
: SAVE FoR P 


; DURING ABOVE NOPERATION ONLY MOL!DPR! vy 
SHOULD SE SET 

; BRANCH IF GOOD 

;BAD DATA 

;FAILING REGISTER RHDS1 


;DURING ABOVE OPERATION ONLY 
:MOL! DPR!VV SHOULD BE SET 


;#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


;MOV_O INTO SAVED RHWC 
; SAVED REGISTER TO CHANGE 


MOV WRFROM+<200.#2> NTO SAVED RHSA 
; SAVED REGISTER TO CHANGE 


1 Tito. SAVED RHDST 


-_—_— Ws are Re. Re ae Ae tell Sf aie ayes re ee es Loree ea ee aes eee 















MAINDEC=11-02R 
CRITA.PL1 


026450 


026455 
C26470 


Oes47e 


028506 


026510 
026512 


026514 


C265i4 


e650 


026542 





13? 


004037 
C04$ 12 


oseure 


104035 
000207 


tne A 


BSee 14 


104036 
000297 


004737 


004037 
34 


000080 
004037 
S4 


000377 


I-A, RPOW/S’& FUNCT. CONT. TST-PT 1 
WRITE’READ DATA (052SeS) 


042354 


o43404 


041366 


O4lENe : 


041236 


1§: praon 3S ;WRITE DATA COMMAND vo 


fo 
wh 


3S: ERROR 36 ;WRITE DATA COMMAND CHANGED 
RTS PC 


4$: 
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;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
;#AFTER COMMAND 













JSR RO, J#COMREG ;COMPARE SAVED REGISTERS WiTH 
NT By 


:PR 
SAVERE ;GO00D DATA SAVED IN ‘SAVERE’ 
We ; TEST DATA STARTING FROM ‘RHWC’ 
18. 18. REGISTERS TO BE COMPSRED 
1$ ETURN TO 1$ ON ERROR 
2$ ‘RETURN TO 2$ ON NO ERROR 


PC IMPROPER REGISTER CHANGE 
; GOOD DATA GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
:THERE AFTER COMMAND 


;*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 
















JSR RO, 28COMPAR ; COMPARE Li BLOCKS OF MEMORY 
REINTO GOOD DATA STARTS FROM REINTO 
WRF ROM :TEST DATA STARTS feet WRFRCM 
esé. 255. WORDS TO BE COMPARED 

3$ ; RETURN TQ 3$ ON ER 

4$ ;RETURN TO 4$ ON NO ERROR 


:WRITE FROM BUFFER 
;#NOW A READ DATA COMMAND WILL SE GIVEN 
;#FILL READ INTO SUFFER WITH 200 ZEROS AND S& OF ALL ONES 


ISR ©C, JHCLDISK SET RI-RHCS1, fecntcse 
R3-RHDS1, RY-RHERI 

: GIVE RA} INLTTALIZE 

s SETUP UNIT NUMBER 
JSR RO, J#CLAREA ‘CLEAR 200. WORDS, FROM REINTO 
REINTO ; STARTING FROM REINTO 
206. :200. WORDS 

FILL WIth Q 
JSR RO, J¥CLAREA CLEAR Se. HORDS FROM REINTO+< 200. #2> 
REINTO+< 200. #2> RTING FROM REINTO+< 200. *2> 
56. :56. words” 

77 “FILL WITH 377 


MAINDEC-11-D2RI7 
ZRITA.P1L 


6491 O26S44 
B Seed, 
52 


0265 
6494 O265S4 
6496 Sate. 


ESeS Oeb6e0 
65e7 Oebsee2 


6530 Oeb6e4 
S3e 926630 
6534 026634 
6526 O26636 





‘ 


go4o37 
2470 
000310 
052525 
004037 
003310 


000970 
300377 


004037 
000009 
000 


000 
177470 
003534 


000900 
0i4000 


002446 


094097 
902272 
Oo4é12 


000022 


004737 
104400 
000509 
013777 


WRITE / 


041236 


041236 


043340 


041446 
ose4o2 


CO4S0E 


ia, RPO4’S6 FUNCT. CONT. TST-PT 1 


READ DATA (052525) 


153422 


BYTE 
~BYTE 


;#FILL WRITE FROM BUFFER 
JSR RO, d#CLAREA 


WREROM 
200. 
52525 
JSR 
WRFROM+< 204. #2) 
5b. 
77 
:#NOW FILL COMMAND 
sR RO, 2&RUN 
0 
9 
-200. 
REINTS 
6 
ECI!FMT2e2 


READAT 


;*NOW SAVE REGISTERS FOR 
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WITH 200 OF SeSeS AND SS OF 0 


:CLEAR 200. WORDS, FROM WRFROM 
:STARTING FROM WREROM 


:200. WORDS 
FILL WITH S2525 
RO, S#CLAREA ; CLEAR ™ ari 


FROM WRFROM+<200. #2> 
~ ING FROM WRFROM+< 296. <2> 


WOR s 
FILL WITH 377 


;SETUP_ TO RUN FOR DATA COMMAND 
:CYLINDER O 
sect OR O 


RACK 0 
;WORD COUNT = - 200. 
BUS ADDRESS 
STARTING ADDRESS OF DATA 


;BUFFER = REINTO 

:D0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER a FORMAT 

; INHIBIT’ "Eee COR 


RE 
:D0 NOT INHIBIT HERDER COMPARE 
A _READAT 


GET READY 
: READ pATA WITH 70 IN RHCS! 


COMPARISON AFTER READ DATA COMMAND 


Ise RO, ad#SAVER ;SAVE REGISTERS 
RHUC ‘RHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRESS OF WHERE 
Hy! REGISTERS ARE S 
is. NUMBER OF REGISTERS 
ISAVED = 18. 


JSR PC, J&CHECKT 
TYPE . CPHALT 


‘END THAT DVA ru se DPR, DRY, VV = 


1 
fo status Bits BRE stuck = 1 
Y OF 


; CANNOT Lita TESTING | 


:THE FIRST SET OF BITS Bon ns 1 


HALT ; STOP 


MOV DBRPYVEC ,IRPVEC ; 


oR TO 


‘aT, RPOY VECTOR ADDRESS 


*TIME1’ IF P-CLOCK IS PRESENT 
*TIME2’ ir coon IS NOT PRESENT 
ME* WILL Y SAVE 


ONL 
CURRENT eYLINDER ADDRESS 





;AND LOOK AHEAD REGISTERS 









ZRIIA.P11 


O2S644 
026650 


026654 


026560 
026662 


026564 


025714 
026716 
026722 
026726 


026730 


026734 
026740 


44 
026750 
026754 


026756 


026756 


8) 
027004 


13? 


013746 
OS2715 


C12677 


009001 


O02446 
000101 


153420 


002446 
054101 
001124 


001126 
004600 


041270 


041270 


041270 


MAINDEC-11-D2RJI-A, RPCY’S’G FUNCT. CONT. TST-PT 1 
WRITE“READ DATA (0S2SeS) 


67$: 


69S: 
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MOV JBREADAT -(SP) ;GET READY 18 MOVE rene 
BIS aGO!IE, (SP) :GET READY TO SET ‘GO’ AND 
ENABLE INTERRUPT 
MOV (SP)+, JRHCS1 :G0 WITH 
;70 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENABLED 
MOV dR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV RS, RS ;SAVE RHDS1 DURING ABOVE OPERATION 












WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 :WAIT At RHCS1 REGISTER 

ROY :WAIT FOR RDY BIT IN RHCS1 REGISTER 
RO SECONDS 


M ET BETWEEN 
690 AND 17470 MICRO SECONDS 


; XCOMPARE CONTENTS OF RHCS1 re. RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER G 


MOV JBREADAT,-(SP) ;SAVE COMMAND 


BIS #IE'GO!DVA, (SP) : INCLUDE E3608 pvA 
MOV (eB) eSGDOAT :SAVE FOR PRINTOUT 
CMP (SP)+,R0 : DURING ABOVE OPERATION ONLY IE!GO!DVA 
:AND COMMAND SHOULD BE SET 
BEQ 67 ; BRANCH IF GOOD 
MOV RO, J#SBDDAT 
MOY Ri’ aBREGADR FAILING REGISTER RHCS1 
ERROR 21° ;DUR ING ABOVE OPERATION ONLY 
COMMAND AND 1160! VA SHOULD BE SET 
MOV #MOL!DPRI VY, -(SP} -SAVE BITS SET DURING OPERATION IN RHDS! 
MOV (SP). J8SGDDAT ; SAVE FOR PRINTOUT 
CMP (5P)4+,R5 3 DURING BBOVE_ OPERATION ONLY MOL! DPR! V¥ 
BEQ 695 :BRANCH IF GOOD 
MOV RS, J#SBDDAT *BAD DATA : 
MOV R32’ JHREGADR ‘FAILING REGISTER RHDS} 
ERROR 63 : DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


ISR RO, J#F ILLRE :MOY 0 INTO SAVED RHWC 

RHUC ; SAVED REGISTER TO CHANGE 

ISR RO, UF ILLRE MOV REINTO+<200.%2> INTO SAVED RHBA 
RH :SAVED REGISTER TO CHANGE 
REINTO+<200. #2> 

JSR RO. JHF ILLRE INTO SAVED RHDST 


SBVED REGISTER TO CHANGE 


ZRITA.PIL 


027032 


027024 
9270e5 


027036 
027030 


n37044 


027046 
027050 


027052 


MAINDEC-11-DIRJI-A, RPOWS”G FUNCT. CONT. TST-PT 1 
WRITE“READ DATA (052SeS) 


13? 


004037 
004612 
002354 
Ropnee 
027924 
927030 
104933 
000207 


004927 
70 


027052 


104034 
090207 


o-- 


MACY11 27(655) 
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;#COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


JSR RO, J#COMREG 


ERROR 33 
RTS PC 


3 cone SAVED REGISTERS WITH 
; PRESENT vr E 

;GO0D DATA SAVED IN ’SAVERE’ 
TEST DATA STARTING FROM *RHWC’ 
18. REGISTERS TO BE COMPARED 
RETURN TO S$ ON ERRO 
RETURN TO 6% ON NO ERROR 


REGISTER CHAN CAUSED IMPROPER 

; GOOD DATA GIVES WHAT SHOULD GE THE 
;RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


;#NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


ERROR 34 
RTS PC 


JSR RO, J#COMPAR 
ROM 


5S On a BLOCKS 4 MEMORY 


R 
RETURN TO 10$ ON NO ERROR 


; INCORRECT DATA AFTER - 


WRITE — FOLLOWED BY A 
‘READ DAT 
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DZRITIA.P11 


S666 027052 
6667 027054 
6668 Oe70be 
6669 027066 


6671 027074 


6678 027100 
6679 927104 
6680 027106 
6681 Oe7ile 


6683 027112 


6687 027116 
S688 Ce7le2e 


ee ee ee 


T40 


ocg004 


012737 
004737 


005737 
001402 
000137 


005037 


004037 
002470 


WRITE“READ DATA 


000901 
00100 

000040 
O413E6 


004750 
030222 


004732 


041236 


001212 
004604 


USING UNIBUS B 


5p RRR REE EEE R AREA EEE EERE ERE EERE EEE EERE RAEI EELS 
; TEST 40 WRITE/READ DATA USING UNIBUS 8B. 


THIS TEST USES UNIBU . IF CONNECTED TO THE RH 
IF UNIBUS B IS NOT CON NECTED THEN THIS TEST IS NOT PERFORMED 
THIS TEST GIVES A WRITE DAT COMMAND FOR CYLINDER C 

SECTOR O, KEYS O B06 WORDS OF 052525 
tite KPaToR IS FORMATED BY PREVIOUS TEST 
THEN READ DATA COMMAND IS GIVEN oe 256 WORDS IN 


FOR DAT 
WRITE FROM BUFF FER AND READ INTO BUFFER ARE FILLED WITH 
200 OF OS2525 AND S& OF 377 
THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 

ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA 


THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 
AND Sb BLL ONES, WRITE FROM BUFFER IS FILLED WITH 200 
WORDS OF 52525 AND 56 WORDS OF 3 
THE COMMAND EXCEPT GO fs LOADED, ALL REGISTERS ARE SAVED 

GO IS GIVEN 


ALL REGISTER ARE CHECKED 
READ DATA IS CHECKED 


hhh eee tee te ee Te ee ee ee a 2 


ee ee ee ee ee ee ed 


+ LEERKLE LEE KEELES EET LEK EE ELLE EEE E KEE E EERE EEE FLERE R EELS ARETE 


téT40 


COPE 
MOV #1 TIMES ::D0 1 ITERATION 
MOV #STACK 
MOV #40, CateTN SAVE TEST NUMBER 
JSR PC, a#CLDISK ;SET RI-RHCS1, Re-RHCS2 
;R3-RHDS1 
:GIVE RH-11 INITIALIZE 
:SETUP UNIT NUMBER 
;*CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH7O 
TST 3#RH70 sTEST FOR RH70_ CONTROLLER 
BEQ 305 FLAG = 1, THIS TEST IS SKIPPED 
IMP TST41 =; tine TO NEXT TEST -------------------- } 
308: :IF FLAG = 1, DO THIS TEST 
CLR J#UBUSB :CLEAR UNIBUS INDICATOR - 
:#NOW FILL WRITE FROM BUFFER-200 OF S2S2S AND S& OF 377 te 
JSR RO, J8CLAREA :CLEAR 200. WORDS, FROM WRFROM -: 
WRFROM :STARTING FROM WRFROM 


SERRE 
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DZRIIA. TH) WRITE/READ DATA USING UNIBUS B 
6689 027124 990310 2u0. 200. WORDS 
6630 027126 052525 52525 FILL WITH S2S25 
6692 027130 O04037 041236 ISR RO, J#CLAREA : CLEAR Sb. WORDS, FROM WRFROM+<200. 42> 
6693 927134 003310 WRFROM+< 200, #2> TARTING FROM WRFROM+<200. #2> 
6694 027136 000070 cb. 56. W 
6695 27140 000377 377 ‘FILL WITH 377 
6698 ;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
6699 -¥WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
£700 CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE SUFFER 
é 
6702 G27142 004037 o41236 ISR RO, J&CLAREA :CLEAR 200. WORDS FROM REINTO 
6703 027146 003534 REINTO ;STARTING FROM REINT 
6704 O27150 900310 200. :2 R 
205 027152 OS2Se5 52525 FILL WITH SeS25 
6707 027154 004037 9041236 JSR RO, J#CLAREA ; CLEAR Sb. HORDS FROM REINTO+<200. #2> 
708 027160 904354 REINTO+<200. #2) ARTING FROM REINTO+<209. #2> 
6709 Oe7lse 9099070 Ss. :56. WOR 2" 
b710 027164 900377 377 FILL WITH 377 
6712 
b713 :*NOW WRITE DATA COMMAND WILL BE LOADED 
6715 
6716 027166 004037 043340 ISR RO, 2RUN ;SETUP TO RUN FOR DATA COMMAND 
6717 Oe7172 ooo000 0 *CYLINDER 0 
6718 027174 000 -BYTE 0 SECTOR 
6719 027175 000 "BYTE OO s TRACK 0 
6720 027176 177470 -200, :WORD COUNT = 200. 
6721 627200 02470 WREROM :BUS ADDRESS 
6722 ; STARTING ADDRESS OF DATA 
6723 !BUFFER = WRF 
6724 927202 op0000 0 :00 NOT INHIBIT BUS ADDRESS INCREMENT 
6725 027204 919600 FMT22 -16 BITS PER WORD FORMA 
£725 7 :D0 NOT INHIBIT ECC CORRECTION 
5727 :D0 NOT INHIBIT HEADER COMPARE 
6728 027206 co244e WRIDAT “GET READY A WRIDAT 
6729 :WRITE DATA WITH fo" IN RHCS! 
6731 027210 052777 o0e000 152062 BIS #PSEL,SRHCSl ;SET PORT B 
b/s :THAT IS UNISUS B 
b7 34 ;#NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 
é 
6736 027216 004037 O41534 JSR RO, JHSAVER ;SAVE REGISTERS 
6737 Oe7222 O0227e RHWC *RHWC IS THE FIRST REGISTER SAVED 
6738 Oe7ee4 OO4ble SAVERE STARTING ADDRESS OF WHERE 
739 THE REGISTERS ARE SAVED 
6740 027226 000022 18. ‘NUMBER OF REGISTERS 
eral :SAVED = 19. 
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DZRIIA.P 11 


THQ 


MACY11 27(655) 30-NAR-76 22:59 PAGE 145 


WRITE/READ DATA USING UNIBUS B 








6743 027230 
6745 027234 
6747 Oe72e40 
6749 Oe27e4e 


6756 27250 
6757 Oe7eS4 


6759 027260 
6762 027264 
6763 O27eb6 


6768 927270 


77 
677e 0e7300 


6778 027302 


6783 027320 
6784 Oe7322 
6785 Oe7326 
6786 027332 


6788 027334 








004737 
104400 
000099 
013777 


013746 
052716 


001507 


013746 


104021 
012746 
011637 
022605 


001405 


104063 





041446 
0S6402 


OO4E06 


002442 
002101 


153014 


o02e44e 
005101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


153016 


64$: 





ISR PC, JBCHECKT :CHECK DVA,RDY,MOL,DPR, ORY, VV = 
“AND THAT NO STATUS BITS ARE stuck = 

TYPE _,CPHALT CANNOT CONTINUE Wee NG IF ANY OF 

nae THE FIRST SET OF BITS DON’T = 1 


MOV DBRPHVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 
:T0 moa th IF P-CLOCK IS PRESENT 
OR TO,’ heme IF P-CLOCK IS NOT PRESENT 
’T L_ONLY SAVE 


CURRENT” CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


MOV JRWRIDAT,-(SP) ;GET READY TO, NOvE COMMAND 
BIS #GC!TE'PSEL, (SP) -GET READY TO SET ’GO’ AND 
s ENABL LE tN RET RELPS 
MOV (SP)+,3RHCS1 § :GO WITH 
:60 IN RHCS1 FOR WRITE DATA 
;MITH INTERRUPT ENABLED 
MOV JR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3.RS :SAVE RHDS1 DURING ABOVE OPERATION 


;#ONE REVOLUTION=16570 MICROSEC, ONE SECTOR=760 MICROSEC 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR ROY BIT IN RHCS1 REGISTER 
908. ROY 9080 MICRO SECONDS 

839. Y MUST SET BETW 


690 AND 17470 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:*#RO AND RS IMMEDIATELY AFTER GO 


MOV ora hashed ;SAVE COMMAND 
BIS BIE!GO!DVA!PSEL, tSP) ; INCLUDE IE!GO!DVA!PSEL 


MOV (SP), J#SGDDAT ";5AV E FOR PRINTOUT 

CMP (SP)+,RO :DURING ABOVE SODERATION ON ONLY IE!'GO!DVAIPSEL 
AND COMMAND 

BEG 64S : BRANCH BG 

MOV RO, J#SBDDAT "BAD DAT 

MOV R1’ J#REGADR : FAILING PREGISTER RHCS1 

ERROR 21 ‘DURING ABOVE OPERATION 


NLY 
-CO AND TE!GO!DVA!PSEL SHOULD SE SET 
MOV #MOL! DPR! VV, -(SP3 AVE BITS SET DURING OPERATION IN RHDS! 


MOV (SP) a8SGDDAT  ;SAVE FOR PRINTOUT 


CMP (SP)+,R5 ‘DURING ABOVE OPERATION ONLY MOL!DPRIVY 
:SHOULD BE SET 

BEQ 66S ‘BRANCH IF GOOD 

MOV RS, JUSBDDAT BAD DATA 

MOY R3; JBREGADR "FAILING REGISTER RHDS1 

ERROR 63° :DURING ABOVE OPERATION ONLY 


;MOL!DPR!VY SHOULD BE SET 
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DZRIIA.P1L TH) WRITE/READ DATA USING UNTBUS B 

797 027362 6S: 

poe 

¢ 

6800 :#CHECK_IF_NEM NON EXISTANT MEMORY IS SET 

6801 taIF SET IT MEANS UNIBUS B IS NOT CONNECTED 

p80 #50 THIS TEST IS NOT PERFORMED 

6804 Oe7362 032777 OO4000 152706 BIT #NEM, SRHCS2 TEST NEM 

6805 027370 901441 BEQ 11$ !BRANCH IF UNTBUS B THERE 

6805 Oe737e 912737 177777 O04732 MOV #-1, 2#UBUSB ‘UNIBUS 8B NOT THERE 

6807 Oe7400 104400 27406 TYPE 68$ 3; TYPE ASCIZ STRING 

6808 027494 9500425 BR 75 GET OVER THE ASCIZ 

§809 --68$:  ASCIZ <15><12>/THE RH iige NOT HAVE UNIBUS B CONNECTED’ 

6810 027460 67; 

6811 DerHe0 104400 001223 TYPE  ,S$CRLF 

6812 O27464 104400 001223 TYPE ‘SCRLF 

6813 027470 000137 030222 IMP d#10$ ; JUMP TO NEXT TEST - NO UNIBUS 8 

6814 027474 118: 

6815 027474 104400 927502 TYPE 70$ ;;TYPE ASCIZ STRING 

6815 O27500 oo0424 BR 9 -GET OVER THE ASCIZ 

6817 +2708: -ASCIZ <i5)<12>/THE RH OES HAVE UNI BUS & CONNECTED, 

6818 O275Se $3: 

6819 O275S2 104400 001223 TYPE  ,SCRLF 

820 027556 104400 091203 TYPE  ‘SCRLF 

beee :#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

6824 027562 004037 041270 JSR RO, #F ILLRE :MOV_Q INTO SAVED RHWC 

6825 027566 002272 RHWC :SAVED REGISTER TO CHANGE 

6826 027570 o00000 : 0 sDATA 

6827 Oe7S7e 004037 041270 JSR RO, J#F ILLRE MOV WRFROM+<200. 2 INTO SAVED RHBA 

6828 027576 002274 RHBA : SAVED REGISTER TO CHANGE 

6829 027600 003310 WRFROM+<200. ¥2> 

6830 027602 004037 041279 ISR RO, J#F ILLRE sMOV 1 1 igo. SAVED RHOST 

6831 027606 002304 RHDST ; SAVED REGISTER TO CHANGE 

bBue 027610 o00001 1 : DAT 

£834 :¥NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 

6835 :AFTER COMMAND 

ea3? 

6838 027612 004037 o42354 JSR RO, J¥COMREG :COMPARE SAVED REGISTERS WITH 

6839 ; PRESENT & UE 

6840 027616 O04612 SAVERE :GO0D DATA SAVED IN ‘SAVERE’ 

6841 Oe7620 002354 Wc :TEST DATA STARTING FROM “RHWC* 
$842 O2762e2 On0oze 18. 518. REGIS TERS TO BE COMPARED 

6843 027624 027630 1$ ‘RETURN TO 1$ ON ERROR 

BY 027626 027634 2g RETURN TO 2$ ON NO ERROR 

6846 027630 104074 1S: ERROR 74 ;WHILE USING UNIBUS B 

6847 ‘WRITE DATA COMMAND CAUSED 

6848 027632 000207 RTS PC : IMPROPER REGISTER CHANGE 

beug : GOOD DATA GIVES WHAT SHOULD 
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oa! war’s Sear rata oSINe UNISUS & 
sRECEIVED DATA SIVES WHAT Was 
:THERE APTER COMMAND 
:#"da WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 
=3: 
234237 343405 sR RO, DBC OMPAR COMPARE TWO enor E oF MEMORY 
eek | REINTO +9000 Barn Sar M REINTO 
alae hae WRERO® Ata Starts FROM WRF ROM 
sala 256. 24 OROS TO BE COMPARED 
se.$52 33 RETURN TO 3$ ON ES 
FI7E5E 43 :RETURN T9 4$ ON NO ERROR 
28075 33 ERROR «75 sWHILE USING UNIBUS 8 
!WRITE DATA COMMAND CHANGED 
sco2s? RTS pe WRITE FROM SUFFER 
:#NOW A READ DATA COMMAND WILL BE GIVEN 
-aFILL READ INTO BUFFER WITH 200 ZEROS AND S& OF ALL ONES 
$$: 
aa a a pt ISR PC, JeCLDISK :SET R L-RHCS R2-RHCS2 
‘BS Ra Si, RY-R 
: GIVE ae INITIALIZE 
:SETUP UNIT NUMSER 
p04037 941226 JSR RO. JeCLAREA s CLEAR 00. WORDS, FROM REI 
892534 REINTO ; STARTING FROM REINTO 
595310 290. : WORDS 
6650098 5 FILL WITH O 
904037 O41236 RO. JeCLAREA SCLEAR S6. THOROS FROM REINTO+< 200. #2) 
394354 REIN NTO+< 200. #2) -STARTING FROM REINTO+<200.#e> 
560870 Se. :56. WORDS : 
800377 7? FILL arth 377 
s#FILL WRITE FROM BUFFER WITH 200 OF S2S25 AND S& OF 2 
294037 941226 JSR RO, J8CLAREA ;CLEAR 200. WORDS, FROM WRFROM 
982470 WRF ROM s STARTING FROM WREROM 
009319 200. #200 
652625 52525 ILL Were 52525 
927 041236 ISR RO, DBCLAREA ; CLEAR se. ORD FROM WREROM+< 200. #2> 
093310 WRFROM+< 200. #2 RTING FROM WRFROM+< S00. 82> 
920070 Sb. 56. WOR aie 
005377 377 SFILL WITH 377 


s#NOW FILL COMMAND 
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a8 SR ROWS 
WRITE: 


oo2446 


OSerr7 


594027 
o02272 
cosste 


Coco22 


004737 
104400 
osogo0 
013777 


313746 
oS27! 


012677 


041534 


041445 
066402 


CO4EDE 


D02446 
002191 


1Sze5C 


FUNCT. CONT. 
BO’ DA¥A UsiRG UNIEUS 8 


TST-PT 1 MACYIL 27(65S) 


JSR RO, JaRUN 


' BIS sPSEL,SRHCS1 


:#NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR RO, JeSAVER 
RHWC 

SAVERE 

19, 


JSR PC, JaCHECKT 
TYPE . CPHALT 

HALT 

MOV DORPYVEC, DRPVEC 


MOV DBREADAT, -iSP) 
BIS aa! TE! PSEL, (SP) 


MOV (SP)+, 2RHCS1 
MOV ORL RO 

MOV JRS, RS 

AT 

RHCS1 

ROY 
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;SET_PORT B 
;THAT IS UNIBUS 8 


save REGISTERS 


C IS THE FIRST REGISTER SAVED 
S OF WHERE 


:NUMBER OF REGISTERS 
AVED = 18. 


see warn we sdb DPR, CRY, ¥ 





cus ms RUN FOR DATA COMMAND 


syTe 6 SECTOR 
“BYTE 0 ae 
-200. 4 COUNT = 200. 
REINTO :BUS ADDRES ss" 
STARTING BOOR ESS OF DATA 
9 f :00 NOT INHIBIT BUS RODRESS LNCREMENT 
ECILEMT22 16 BITS PER WORD F 
s INHIBIT "ECC COPRECT 10N 
NO INHIBIT HEADER COMPARE 
READAT :GET aby TO DO A READAT 
FREAD DATA uiTHovO INCRHCS! 


status Bits ate stu be 


‘sang ¢ ae TESTING IF 


Pd 


mF ens SET OF BIT Bon Ts 2 


a6 T, ae yOuTOR ADDRESS 
310 *TIME1" 


P-CLOCK IS PRESENT 


;OR TO ‘TIME ; IF P-CLOCK IS NOT "PRESENT 


:* TIME’ WILL ONLY SAVE 
: CURRENT CYLINDER ADORESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMA 


— ft 
READY 0 SET "GO" | 
sENABL E fee RRUP 


id TH 
"70 IN RHCS1 FOR READ DATA 

sWITH INTERRUPT ENABLED 

:SAVE RHCS! DURING ASOVE OPERA 

: SAVE PHOS: DURING ABOVE OPERA 





;WAIT FOR ROY BIT TO SET 
;WAIT FOR RHCS1 REGISTER 
;WAIT FOR ROY SIT IN RHC 


AND 


RATION 
TIO 





oocwo ooo 
GIGIOIG) tata 
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i READ DATA USING UNISUS rc) : : 


gus. ALLOW 3920 MICRO SECONDS 
839. ET BETW 
hc a 17470 Ie BN SECONDS 


:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:#RO AND RS IMMEDIATELY AFTER GO 


MOV Q*READAT,-(SP)} :SAVE COMMAND 
BIS #IE'GO!pva!P PSEL, tSP) j INCLUDE IE!GO!DVA!PSEL 
MOV (P) JeSGDOAT '; SAVE FOR PRINTOUT 


CMP (SP P)4,R0 ; DURING ABOVE OPERATION ONLY IE!GO!DVALPSEL 
;AND COMMAND SHOULD BE SET 

SES 71$ BRANCH IF GOOD 

MOV ee, d8$B0DAT :BAD DAT 

MOV 1, 3#REGADR FAILING REGISTER RHCS1 

ERROR 5 s DURING ABOVE OPERATION 


ONLY 
‘COMMAND AND IE!GC!DVA!PSEL SHOULD , SET 


MOV atiCL !DPRE VY =(SP} SA ve BI : SET DURING OPERATION tN RHOS! 


MOV (3P) ‘2eSGODAT SAVE FOR PRINTOUT 

CMP (SP)4+,R5 Fit RING ABONe OPERATION ONLY MOL!DPR! VV 
:SHOLLD BE SET 

BEQ 73$ ‘BRANCH IF GOOD 

MOY R5, JeSBODAT :BAD DATA 

MOV R32’ aBREGADR “FAILING REGISTER RHOS! 

ERROR 63 :OURING ABOVE OPERATION ONLY 


;MOLIDPR!VY SHOULD BE SET 


;*CHANGE SAVED REGISTERS 70 EXPECTED VALUES 


JSR RO, J#F ILLRE sMOV_O INTO SAVED RHWC 
RHWC : SRYED REGISTER TO CHANGE 


Q 
JSR RO, J8F ILLRE :MOV_REINTO#+<200.#2> INTC SAVED RHA 
RHBA ; SAVED REGISTER TO CHANGE 
Reg NTO* eRe #2) Ta 
HOST 


RC, JeF ILLRE sMOY | 1AT0 SAVED RHDST 
SiveD REGISTER TO CHANGE - 


;*COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


JSR RO, JBCOMRES SC OUeeRT ee REGISTERS WITH 
SAVERE :GO0D DATA SAVED IN *SAVERE* 

We :TEST DATA STARTING FROM "RHWC’ 
18 ;18. REGISTERS TO SE COMPARED 
S$ sRETURN TO S$ ON E 

6$ RETURN TO 6$ ON NO ERROR 
ERROR 72 ;WHILE USING UNIBUS 8 


READ DATA CAUSED IMPROPER 
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MACYL1 27 (65S) 


TST 
TosIhg UNTBUS 8 
a Eoo DAT CHANGE 


7®NOW READ INTO BUFFER IS CHECKED FOR SOOD READ 
oe oa TWO geeks OF fet 
‘TEST DATA STARTS FROM REINTO 
S TO BE COMPARED 
$ ON ERROR 
RETURN TO 10$ ON NO ERROR 


sWHILE USING on teuS 
:RI TE DATA FOLLOWED SY A 
;8ERD DAT 


- 
tw 
ee 


ooo 
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DZRIIA.PL! Tu WRITEREAO DATA USING UNISUS 8 e 

7 
oRd ge RERRRERRAARAR ARAL AL AERA RE RE RK AL ELAA RARER RERER ARLE LER SRAFS 
2043 ‘TEST 41 IMPLIED SEARCH 
nat a NLY_NEW ION_IN THIS TEST IS AN IMPLIED SEARCH 
sO4s if f WADE HERDER AND DATA ES “GIVEN FOR AORE THAN ONE SECTOR 
>O49 1% ORITe ROP ADER AND DATA CYLINDER. 0 FORMAT 16 BITS PER WORD 
749 te TRACK 0, SECTOR O, KEYS=0, NUMBER OF 
7550 :* 3 & (4 HEADER 256 DATA=0 4 HEA DER y DAT a 
7051 :* THEN READ HEADER AND DATA FOR ABOVE SECTOR 1 ONL 
7952 2% WRITE FROM SUFFER AND READ INTO BUFFER ARE A PLED WITH 
7353 :% 10000,0,0,0 AND 256 OF O, 10000,1.0,0, AND 2 OF 1 
7554 = THE WRITE’ COMMAND IS THEN L SROED- Into" THE REGISTERS EXCEPT 
7055 :# THE GO BIT, AND ALL THE REGISTERS AR AVED 
088 i THEN GC IS GIVEN FOR WRITE HEADER AND Sar 
‘ é : 
7a59 1% THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGE 
7058 i THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 
>551 1 : 
7563 1% NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED, 
7063 : WITH 377, WRITE FROM SUFFER IS FILLED WITH 10090.1,0.0,1 

| 7064 :% AND 254 OF SEROS COMMAND. T& LOADED INTO REGISTERS EXCEPT 
7065S 1H GO AND IE THEN ALL REGISTERS ARE SAV 

| bb i GO IS GIVEN FOR THE READ COMMAND, 256 WORDS 
(Jd/ . 
7068 1% ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 

| 7058 ;* THEN THE READ DATA IS COMPARED 

ara © = SHERERESSKESEE RA REAS RELEASE LE LALA SEARARALARALALKALSSASRE LESS LURE 
7572 920222 coo004 tSt41: sc 
7573 O302e4 012705 091990 MOY BSTACK, SP :RESET STACK 

| 707% 030830 O1é737 OO0041 oo4EOY MOV #41 ,aatStTNm =|; SAVE TEST NUMBER 
fui . * 

| S578 og0236 cONTa7 041366 JSR PC, JCLDISK ;SET Ri-RHCS1 R2-RHCS2 

| 2977 :RG-RHOSL RY 

|  9A27g :GIV erRneta” INITIALIZE 

379 Rati UNIT NUMBER 

; {wow 

| 708} ;#FILL WRITE FROM SUFFER WITH HEADER 

| 7083 o20242 904037 o41212 JSR RO, J¥FLHEAD :SAVE HEADER DATA IN WRFROM 

| 7584 ABnd4e 902470 RFR OM :LOCATION WHERE SAVED 

, 7985 930250 .cod004 !NUMBER OF WORDS SAVED 

| 7086 930252 o1c000 Toooe :FIRST DATA WORD 

i 7087 930254 900009 0 SECOND DATA WORD 
7098 930256 co00000 0 ‘THIRD DATA WORD 

| 7083 020260 900000 9 :FOURTH DATA WORD 

(7931 ;*FILL WRITE FROM BUFFER WITH DATA 

S2 030262 004027 o41e36 5SR RO, J#CLAREA ;CLEAR 256. WORDS, FROM JIRFROM+10 


2 030266 002500 WRFROM+10 STARTING FROM WRFROM+10 


3 
94 635279 999409 25s. 256. wokes 


one ee ee eee = ee ee 


MAINDEC-11-DZRJI-A,: 
Tal 


NO0N00000D 
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22 000000 


CO4037 


300800 


004037 
003510 
cooc02 
S00001 


004037 
903534 


009400 
oocsoc 


904937 
p04544 
oo0004 


AaAr 
COSSSi 
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IMPLIED SEARCH 


ee ee ee ne Re ee oe 






0 ;FILL WITH O | 


:*FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 
JSR RO, J#FLHEAD ;SAVE HEADER DATA IN WRFROM+<260. #2> 


WREROM4< 260. #2) LOCATION WHERE SAVED 
4 :NUMBER OF WORDS SAVED 

10000 ‘FIRST DATA WORD 

| SECOND DATA WORD 

0 : ‘THIRD DATA WOR 

0 | ‘FOURTH DATA WORD 


-¥FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA 
5 RO, JECLAREA sCLEAR 2 WORDS, FROM WRFROM+< 264. x2> 
WRF ROMs «264. #2) :STARTING FROM WREROM+< 264, #2) 


:2 WOR 
I ‘FILL WITH 1 
;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
:¥AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
:*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 
:¥CHANGE WRITE FROM BUFFER. 


JSR RO, J#FLHEAD ;SAVE HEADER DATA IN REINTC 
; WHERE SAVED . 


REINTO :LOCATION WHER 
4 :NUMBER OF WORDS SAVED 

10060 :FIRST DATA WOR 
0 :SECOND DATA WORD 
0 : THIRD DATA WORD 

Z :FOURTH DATA WORD 
ISR RO, J#CLAREA :CLEAR 256. WORDS, FROM REINTO+10 
REINTO+10 “STARTING FROM REINTO416 
26. 5256. WORDS 


;FILL WITH O 


ISR RO, J#FLHEAD :SAVE HEADER DATA IN REINTO+< 260. *2> 
REINTO+<266. #2) . ATION WHERE SAVED 


; NUMBE 
pa008 :FIRST DATA WOR 


:SECOND DATA WORD 
0 : THIRD DATA 
6 :FOURTH DATA WORD 
ISR RO, J#CLAREA :CLEAR 2 WORDS, FROM REINTO+< 264. #2> 
REINTO+< 264. ¥2> pghS ARTING FROM REINTO+< 264. ¥2> 


en) 


FILL WITM } 


;#NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 














eB R ESRB aa SSINISININISI SIO OOOO OOOrwmuiu 


19e 


NOUN LIM -OWONMULCGOIU+-OWO NOU CWihu-OwMm 


OZRIIA.PL 


030412 


030422 
O3c4es 


030426 
030439 


030432 


030434 
C30440 
O3044e 


O3C444 


C30446 
030452 
030456 
O3C460 


O3O45& 
C30472 


030476 


930592 
930504 


TH! 


004937 943340 
000000 


ne 
177366 
002470 


000990 
310900 


002444 


904037 
002272 
O046 12 


ocoS2< 


004737 
1644C0 
009000 
013777 


213746 
052716 


012677 


C41534 


41446 
o66402 


004696 


002444 
000131 


151576 


151600 


MAINDEC@11-DZRJI-A, RPOYS & FUNCT. CONT. TST-PT 1 
IMPLIED SEARCH 


.BYTE 
.BYTE 


me es ee 





Ol 
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JSR RO, J#RUN FM TO RUN FOR DATA COMMAND 
Q ;CYLINDER 0 
0 ;SECTOR 0 
0 ; RACK 0 
“262. <4 ;WORD COUNT (DATA) = 262. + 
4 eee WORDS 


WRFROM DORESS 

START ING ADDRESS OF DATA 

;BUFFER = WRF 

0 300 NOT INHIBIT BUS ADDRESS INCREMENT 
FNT2e 316 BITS PER WORD FORMAT 

D0 NOT eter e ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 


WRIFOR -GET READY TO DO A WRIFOR 
:WRITE HEADER AND DATA WITH 62 IN RHCS1 


-¥NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DAT! 
SR RO, aJ&SAVER ; SAV : REGISTER 
RHWC !RHWC IS THE FIRST REGISTER SAVED 
SAVERE + OTORTING ADDRESS OF WHERE 

{THE REGISTERS ARE SAVED 
18. NUMBER OF REGISTERS 

SAV ED = 18. 


ISR PC, 2&CHECKT :CHECK DVA,ROY,MOL,DPR,DRY,VV = 

:AND THAT NO STATUS BITS BRE sick =} 
TYPE _,CPHALT >CANNOT CONTINUE ait IF ANY OF 
cl THE FIRST SET OF BITS DON’ * =! 


MOV BBRPHYVEC , IRPVEC sae RPOY VECTOR ADDRESS 
;TO 'TIME1’ IF P-CLOCK IS PRESENT 
OR TO *TIME2’ P-CLOCK IS NOT PRESENT 
; TIME’ WILL ONLY SAVE 
: CURRENT CYLINDER ADDRESS 
TAND LOOK AHEAD REGISTERS 


MOV Sau IEOR -(SP) ;GET READY TO MOVE COMMAND 
BIS E, (SP) :GET READY TO SET "GO’ AND 
-ENABLE INTERRUPT 
MOV (SP)+, IRHCS1 +60 WITH 
2 IN RHCS1 FOR WRITE HEADER AND DATA 
witty INTERRUP T ENABLED 
MOV 3R1,R9 :SAVE RHCS1 DURING ASOVE OPERATION 
MOY JR3.RS SAVE RHDS! DURING ABOVE OPERATION 


;#ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


;WAIT FOR RDY BIT 


WAT 10 
RHCS! ‘WAIT FOR RHCS1 REG! 


SET 
STER 















an ee 


OCRIIA. 
7203 930S12 


she Bab8ie 


0 
7211 030520 
cele o305e4 


030530 
7214 030534 


rel§ 030550 
7e21 930552 
030556 


7225 030564 
7226 30566 
7227 9395re 
7228 030576 


7230 ° 030600: 


7242 030626 
7248 030630 
7250 030634 


7254 C30544 
7256 OC30646 


Tul 


vod200 


bees 


104021 
012746 


104063 


004037 


090002 


004037 
004612 
030646 
030652 
104027 
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002444 
CO4101 
O011e4 


041270 


041270 


041270 


042354 
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RDY :WAIT FOR ROY 817 IN RHCS] REGISTER 
yes. BLOW Tim ae are 
| 21500 AND 19000 MICRO SECONDS 


:®COMPORE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVEC IN 
;#RO AND RS IMMEDIATELY AFTER GO 


MOV O#WRIFOR,-(SP) ;SAVE COMMAND 

BIS #IE'GO'DVA, (SP) ;INCLUDE IE!GO!DVA 

MOV (SP), aeSGDDAT SAVE FOR PRINTOUT 

che (5P)4,R0 ; DURING ABOVE OPERATION ONLY IE!GO!DVA 
AND COMMAND SHOULD BE SET 

8LQ 64S ? BRAN CH IF GOOD 

MOV RO, J#SSDDAT *BAD DATA 

MOV R1; a8REGADR ‘FAILING REGISTER RHCS1 


ERRC.. 21 *DURING ABOVE OPERAT 10N ONL 
; AND IE'GO!DVA SHOULD BE S 
$4$: MOV HMOL!DPR! VV. -(SP5 -SAVE BITS SET DURING BE ERATION IN RHDS! 
MOV (SP). JuSGDDAT  ;SAVE FOR PRINTOUT 
CMP (5P)4+,R5 :DURING ABOVE OPERATION ONLY MOL!DPR! VY 
:SHOULD BE SET 
BEQ bES BRANCH IF GOOD 
MOV RS, J#SBDDAT ATA 
MOV R32, JREGADR FAILING REGISTER RHDS! 
ERROR 63° :DURING ABOVE OPERATION ONLY 


:MOL! DPR! VV SHOULC BE SET 
663: 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC 


s SAVED REGISTER TO CHANGE 

ISR RO,Q#FILLRE° § ;MOV WRFROM+<266.%#2> INTO SAVED RHBA 
RH -  $SAVED REGISTER TO CHANGE 

WRFROM+< 266. ¥2> 

IR RO, daF ILLRE 2 INTO SAVED RHDST 


‘Saved REGISTER TO CHANGE 


;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
*WITH REGISTERS AFTER COMMAND 


ISR RO, J#COMREG : COMPARE act REGISTERS WITH 

SAVERE GOOD NATA SAVED IN *SAVERE’ 
TEST DATA STARTING FROM ‘RHIC’ 

18. 318. RE G TER S TO BE COMPARED 

1$ ‘RETURN TO 1S ON ERROR 

2g RETURN TO 2$ ON NO ERROR 


1$: ;WRITE HEADER AND DATA 






DIRIIA.P11 






























727? 030570 
7278 O03067e 












82 
7283 030674 
7285 930674 











7289 930700 


Tal 


re 2s 030850 000207 
8 


004037 
003534 


104930 


000207 


904737 
004037 
003534 
000404 
090377 


000254 
009000 
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043404 


041365: 


041236 


O4lele 


041236 
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RIS PC ; CAUSED IMPROPER REGISTER 
$000 DATA GIVES WHAT SHOULD 


THER 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMANT 


;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
;*NOTHING GOT CHANGED 


i NTO RO, J#COMPAR pits TWO BLOCKS OF MEMORY 


$ ERROR 
4$ RETURN TO 4S ON NO ERROR 
er 30 ;WRITE HEADER AND DATA 
RTS PC ;CHANGED WRITE FROM BUFFER 
;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 


:#FOR SECTOR 1, 256 WORDS 
:#READ INTO BUFFER IS FILLED WITH ONES 


JSR PC, AXCLDISK ;9ET + age AE ‘oe RHCS2 


: U 
JSR RO, J#CLAREA CLEAR 260. WORDS, FROM REINTO 
REINTO ;STARTING FROM REINTO 
377° ‘FILL WITH 377 


;#WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA 


JSR RO, d#FLHEAD 3 SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 
6 :NUMBER OF WORDS SAVED 
0006 FIRST DATA WORD 


1 
1 o 
0 THIRD DAT 
1 ' ‘FIFTH 
‘SIXTH DATA WORD 
ISR RO, JHCLAREA :CLEAR sy Pe FROM WRFROM+<6. #2) 
WRF ROM (6. #2) sie aie RTING FROM WRFROM+<5. #2> 


;FILL WITH O 















—“s, 























MATND 


- 


m 
a 


ws 


a 
onl 
—OWO INO U CW » 
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;*NOW FILL COMMAND 

030750 OO4037 943340 JSR RO, 2WRUN ;SETUP TO RUN FOR DATA COMMAND 
030754 o00000 9 DER 0 
030756 001 1 ISECTOR 
030757 000 0 : TRACK 0! 
930760 177374 -256.-4 WORD COUNT (DATA) = 256. + 
03072 903534 REINTO $4, HERDER. WORDS 

STaRT IN ABORESs OF DATA 
930764 900000 0 :DO NOT IN BUS ADDRESS INCREMENT 
030766 014000 ECI!FMT22 & BITS PER WORD FORMAT 

sINMIBIT ECC CORRECTION 

D0 NOT INHIBIT HEADER COMPARE 

030770 og24so REFOR ‘GET NREAbY TO DO A REFOR 


03977e 
030776 
031000 


031002 


031004 
031010 
031014 
O31016 


031024 
031030 


031034 


031040 
031042 


000090 
013777 


013746 
052716 


012677 


041534 


041446 
056402 


004606 


002450 
000101 


151240 


* MOV @R1,RO SAVE RHCS1 DURING ABOVE OPERATION 





Ol 


READ HEADER AND DATA WITH 72 IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


JSR RO, J#SAVER ;SAVE REGISTERS 
RHWC :RHWC_IS THE FIRST REGISTER SAVED 
SAVERE i STARTING ADDRESS OF WHERE 


; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTER ) 
SAVED = 18. 


JSR PC, JHCHECKT ; CHECK pve, ROY, MOL. DPR, DRY, VV = 
: AND Me S taTus arts aR ARE stuck 
TYPE  ,CPHALT CHANT CoN INUE TES IF ai 6 
THE FIRST SET OF BITS DON’T = 
HALT STOP 


3SET ae VECTOR ADDRESS 
310 ’ 4 ME1’ IF P-CLOCK IS PRESENT 
j0R T Q *TIME2’ IF P-CLOCK IS NOT PRESENT 
;* TIME’ WILL ONLY SAVE 
; CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV O#RPYVEC , JRPVEC 


MOV Q#REFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO'IE, (SP) GET READY TO SET ‘GO’ AND 
“ENABLE INTERRUPT 
MOV (SP)+, JRHCS1 360, WITH 


72 IN RHCS1 FOR READ DATA 
swtTH INTERRUPT NABL ED 


MOV aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
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DZRJIA.P11 TH] IMPLIED SEARCH 
7365 :¥0NE REVOLUTION = 16670 MICRO SEC, ONE SECTOR 760 MICRO SECONDS 
7368 O31044 104412 WAT ;WAIT FOR RDY BIT TO SET 
7369 0931046 002300 RHCS1 iALT EO FOR R RHCSL thane 
7379 031950 oo0200 RDY IT IN RHCS1 REGISTER 
7371 031052 001614 | 908. . ALLO Shes MICRO SECONDS 
7372 031054 o0iS07 839. “ROY MUST SET SEO EEN 
737 690 AND 17470 MICRO SECONDS 






7374 

7375 ;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 

237% 5 #RO AND RS IMMEDIATELY AFTER GO 

7378 031056 O13746 O024S0 MOV Q#REFOR,-(SP)  ;SAVE COMMAND 

7379 03106e OSe716 04101 “ Is #IE'GO!OVA, (SP) ; INCLUDE gal ae 

7380 031066 011637 001124 MOV (SP), a#SGDDAT  ;SAVE FOR PRINTOUT 

7381 031072 022600 CMP (SP)4,RO DURING ABOVE OPERATION ONLY IE!GO!DVA 
7382 SAND COMMAND SHOULD BE SET 

7383 031074 001405 BEQ 67$ ;BRANCH_IF 

7384 031076 019037 001126 MOV RO, J#SBDDAT BAD DATA 

7385 031102 010137 904600 MOV R1; JREGADR FAILING REGISTER eee 

7386 031106 104021 ERROR 21’ ;DURING ABOVE OPERA he ONLY 

7387 TE!GO!DVA SHOULD BE SET 
7388 031110 Ole74%6 010500 673: MOV #MOL! DPR! VV wy, -(SP3 ;SAVE BITS SET DURING OPERATION IN RHDS! 
7389 931114 011637 001124 MOV (SP), a8SGDDAT  ;SAVE FOR PRINTOUT 

7390 O311e0 022605 CMP (SP)+,RS DURING ABOVE OPERATION ONLY MOL!DPR!VV 
733i ;SHOULD BE SET 

7392 O3llee o01405 BEQ 69S ; F GOOD 

7393 031124 010537 001126 MOV RS, d#SBDDAT TA 

7394 031130 010337 004600 MOV R3, J#REGADR FAILING REGISTER RHDS} 

7395 031134 104063 ERROR 63° ;DURING ABOVE OPERATION ONLY 

73% ;MOL!DPR!VV SHOULD BE SET 

ex 031136 698: 

ee. ;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 

7401 ae 004037 041270 JSR RO, d#F ILLRE ;MOV_O INTO SAVED RHWC 

7402 031142 O02e7e RHWC SAVED REGISTER TO CHANGE 

7403 031144 000000 0 

7404 931146 004037 041270 JSR RO, J#F ILLRE MOV D REGISTER ser INTD SAVED RHBA 
7405 115e 002274 ;SAVED REGISTER TO C 

7406 031154 OO4S44 RE INTO+<260. #2) ;DAT 

7407 031156 004037 041270 JSR RO, J#F ILLRE ;MOV_2 INTO SAVED RHDST 

7408 1i6e 002304 RHDST SAVED REGISTER TO CHANGE 

7409 031164 000002 e ;DATA 





7410 
7411 ;#COMPARE REGISTERS BEFORE READ HEADER AND DATA 
7412 ;*WITH REGISTERS AFTER COMMAND 







7415 031166 OO04037 O42354 JSR RO, d#COMREG i COMPARE SAVED REGISTERS WITH 


7416 RESENT VALU 
7417 031172 OO4ble SAVERE ‘6000 DATA SAVED IN *SAVERE’ ; f c 
7418 031174 002354 WC :TEST DATA STARTING FROM *RHWC’ > Ny 





















Ol 
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7419 031176 oocoee 18 18. REGISTERS TO BE COMPARED 
74 b31e00 1204 oS "RETURN TO S$ ON ERROR 

1 O3le0 1210 6S ‘RETURN TO 6$ ON NO ERROR 
7424 031204 104031 S$: ERROR 31 j READ HEADER AND DATA CAUSED 
7425 O31e06 O00207 RTS PC IMPROPER REGISTER CHANGE 
pies | #6008 DATA GIVES WHAT SHOULD 
7439 . : “RECEIVED DATA GIVES WHAT WAS 
oie ' ‘THERE AFTER COMMAND 
7431 :#NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
7432 :*#THAT READ WAS GOOD 
7433 
ma 031210 6$: 
7436 031210 004037 O43404 JSP —_—_ RO, A&COMPAR COMPARE TWO BLOCKS OF MEMORY 
7437 031214 002470 WRFROM :G00D DATA STARTS FROM WRFROM 
7438 031216 003534 REINTO ; TEST DATA STARTS FROM REINTO 
7439 031220 oo0404 260. 60. ORDS_ 0 BE COMPARED 
7440 O3leee 031226 7§ RETURN TO 7 
744i 031224 031232 10$ :RETURN TO 10S ON NO ERROR 






7445 031226 104032 7$: ERROR 32 . ;WRITE HEADER AND DATA 

7446 031230 000207 RTS CO FOLLOWED BY A READ HEADER 
7447 AND DATA GAVE A READ ERROR 
7448 ERROR MAY BE iN READ OR WRITE 





7449 031232 

















7485 31636 2 
7487 D31540 
7489 . 031246 


750] 031266 


TH! 


012706 


012737 
004737 


“DZRJI-A, RPO4/S’6 FUNCT. CONT. TST-PT 1 


IMPLIED SEARCH 


901000 
OO0042 oo4604 
041366 


O4lele 
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ha gee ates ar age aenenenieesemremaememnnamenne: 
*TEST 42 IMPLIED SEEK TO CYL O01 


-SBTTL SEEK TESTS 


ONLY NEW ae ie IN THIS TEST IS AN 


IMPLIEO SEEK FROM CYLINDER 0 
Me CYLINDER 1, WOR Gale TE HEADER AND DATA IS GI 


VEN FOR MORE THAN 


NE SECTOR OF’ W 
WRITE HEA ATH CYLINDER 0, FORMAT 16 BITS PER WORD 
TRACK ib, OEE FOR OT KEYS LO. NUMBER OF OROS 286 WORDS 


4 HEADER, “EEF sai 4 HEADER 2 DATA = 2000 
THEN READ HEADER AND DATA FOR ABOVE OeaCK “QO, SECTOR 0, CYL=1 
WRITE FROM BUFFER BNO READ_INTO BUFFER ARE FILLED WITH 
10000,0,0,0 AND 256 OF !125, 10001,0,0,0, AND 2 OF 2000 

THE WATTE” COMMAND IS THEI’ POADED tar tHe efeGISTERS EXCEPT 
THE GO BIT, AND ALL THE REGISTERS ARE S 

THEN GO IS’GIVEN FOR WRITE HEADER AND Bata 


THEN ALL_REGISTERS ARE COMPARE TO CHECK FOR IMPROPER CHANGE 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 


NOW FOR READ COMMAND READ INTO BUFFER IS FILLED 
WITH aL ONES, WRITE FROM BUFFER IS LCADED 
J6u01,0,0,0 AND 2 OF 2000,254 OF ZEROS REMIND ‘IS LOADED 
INTO 1 parsteRs EXCEPT GO OaKD I IE ALL REGISTERS ARE SAVED 
a IS GIVEN FOR THE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA 1S COMPARED. 


gO" gga maa seit agai: itachi eae 


+éTy2. 
Roy #STACK, SP RESET STACK 
MOV #42, a#TSTNM ‘SAVE TEST NUMBER 


JSR PC, d#CLDISK i SET, eae OE sie nee 


?R3-RHDS1 
GIVE RH-11 INITIALIZE 
SETUP UNIT NUMBER 


;*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO, J#FLHEAD ;SAVE_HEADER DATA IN WRFROM 
WRF ROM sLOCATION WHERE SAVED 
: NUMBER Mt SAVED 


‘FIRST DAT 

SECON : poate WORD 
; THIRD pATA Wo 
: FOURTH DATA OBR 


ee ee ee eee ee ee ee eee ee ee 


ee ted te ed ed i ee i i i ee ee ee ee 7) 


10000 
are. NOD EE.) 
0 













_ 


Wwe 


oo 


Qonow 
Boos 


© 
oul *Etstur-CoaeD 


issesestses 


O-+ -< ~~ ~~ 6-2 9+ © + Oo Be 
0 0+ 6 9 0-2 po 
GIWIGIGIG) 


es 


0 
Mr-(.00~3 


ay tt 
+b =0-b— 
WJIGIGIG) 


ra 
Piety 


A A NL EO ND LE LC LL CT 


os 
TEST S 


041236 


O4iées2 


041236 


C4lzéle 


041236 


c4l2i2 
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, “}FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 


ISR RO, J8FLHEAC :SAVE HEADER DATA IN REINTS 
REINTO “LOCATION WHERE SAVED 
4 :NUMBER OF WORDS SAVED 
1ocee :FIRST DATA WORD 
(18. #400) 21. ) “SECOND DATA WORD 
0 ;THIRO DATA WORD 
5 a RTH DATA LORD 
sR RO, I8CLAREA ?CLEAR 256. WORDS, FROM REINTO+10 
REINTO+10 “STARTING FROM REINTO+1¢ 
256. 5256. WORDS 
(18. #40>!21, :FILL WITH «18, #40) 121, 
JSR RD, JeFLHEAD :SAVE HEADER DATA IN REINTO+<280.#2> 
REINTO+< 260. #2) ib OS CATION WHERE SAVED 
: NUMBER WORDS SAVED 
1o00! :FIRST DATA Wl 
0 : SECOND DATA og 
5 : THIRD DATA WORD 
0 ‘FOURTH DATA 


: 0 
ISR RO, 8CLAREA ; CLEAR 2 WORDS FROM REINTO+< 264. 82> 
REINTO+< 264. #2) :STARTING FROM REINTO+. 264. #2> 


2000 


fT 


A ne te: ne ee in ee ee 











,#FILL WRITE FROM SUFFER WITH DATA 

$se RO, JeCLAREA CLEAR sb. WORDS, FROM WRFROM+10 
WREROM+10 TING FROM WRFROM*+10 
256. woke” 


18.940) !21. sFILL WITH «19. #40) !21. 





JSR. RO,D¥ELHEAD =», SAVE HEADER DATA IN WRFROM+< 260. #2) 
HRFROM+ 260. #2) LOCATION WHERE SAVED 
; NUMBER iF tiORDS SAVED 
10001 SFIRST DATA WORD 
9 ;SECOND DATA WORD 
0 ; THIRD DATA WO 
0 ;FOURTH DATA WORD 






;*#FILL WRITE FROM SUFFER WITH NEXT TRACK DATA 
R RO, J#CLAREA 





0, ;CLEAR 2 i HOR DS. FROM WRFROM+< 264. #2> 
WRFROM+< 264, #2° pee ARTING FROM WRFROM+< 264. #2> 
2000 tFILL WITH 2000 








LED WITH SAME D 
ER A MURITE COMPARISONS 
ITE DIO NOT 





#NOW READ INTO SUFFER WILL, 
i488 WRITE FROM SUFFER SO 


#CAN BE MADE TC MAKE SURE 
t #CHANGE WRITE FROM BUFFER. 
















WO 
FILL WITH 2009 





psivse be 


o31444 
531450 
o31452 


032454 


031456 
031462 
9314686 
031470 


C31476 
031502 
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:*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
eal TO RUN FOR DATA COMMAND 
CYLINDER . 
ah “tee 
Nes COUNT (DATA) = 
+e ADER WORDS 
s STARTING G ADDRESS OF DATA 


‘80. NOT T INHIBIT BUS pooeESS INCREMENT 
109 ROT INHIBIT ECC CORRECTION 
at a wie COMPARE 


ie 
: WRITE uisber” BND ‘DATA WITH oo IN RHCS1 


;*#NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATAL 


; SAVE ye 
sRHWC_IS THE face a at SAVED 
: STARTING one 32 0 WHERE 

on REG ue RS A 


: CHECK wove ROY MOL,DPR,ORY,VV = 1 
AND T staTus arts sTuck = 
i ANOT cont RUE TESTING I oF 
dtp Re? SET OF SITS Bone 


a Y 


BOOR 
ar OOK RHERD REGIST 


Oe TEOR ~<SP) ee y ReRey 18 TQ HOVE ero AND 





{SAVE RHOS! DURING ABOVE OPERATION 


me em ee ee ee He ere ae eee 


MAINOES 
a. 


ae 
ts 
P.*) 


C4 


el ee eee 
00D “IP U1 £- Gotu 





031526 


031530 


031566 
palaee 


031574 
031576 


032602 
031606 


TS 


002444 
B04101 
001124 


041270 


041270 


041270 


041270 


041270 


‘SS FUNCT. ST-PT | 


:#ONE REVOLUTION = 16670 MICROL SEC, ONE SECTOR = 


WAT 
RHCS1 
RDY 
1695. 
845. 


MACYL1 27 (655) 


SO-MAR-7& 22:59 PAGE lee 


sWAIT FOR ROY BIT TO SET 

WAT FOR RHCS1 REGISTER 

;WAIT FOR ROY BIT IN RHCS1 REGISTER 
ALLOW 16950 MICRO SECONDS 


ROY MUST SET BETWEEN 


8500 AND 25400 MICRO SECONDS 
: *COMPARE CONTENTS oF RHCS1_ AND RHOS1 ALREADY SAVED IN 


;#RO ANC RS IMMEDIATELY AFTER GO 


MOV QRWRIFOR, -(SP) 
BIS #IE'GO!NDVA, (SP) 
MOV (SP), JaSGDDAT 
cme P)+.R0 


M 
MOV #MOL!DPR! VV -($P} 
},a8SGDDAT ~ ;S 


MOV (SP) 
CMP (5P)4,R5 


;*NOW CHANGE SAVED REGISTERS 


JSR RO, JaF ILLRE 
RHWC 

re RO, dF ILLRE 
HRFROM< 266, #2) 

JSR RO, JF ILLRE 
1 

JSR RO, J#F ILLRE 
RHCC 


1 
JSR RO, J8F ILLRE 
— 


;#NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA 
*#WITH REGISTERS AFTER COMMAND 


64S 
MOV ad» J8$BO0AT 
MOV 3 1 a8REGADR 


66$ 
MOV RS, Hyd 
MOV R3, J#REGAOR 
ERROR 63 


;SAVE COMMAND 
; INCLUDE gt a 
:SAVE FOR PRIN 


TOUT 
s DURING ABOVE OPERATION ony TE!GC!OvA 
OMMAND SHOULD BE SET 


;AN 
i F GOOD 
SPALLING REGISTER RHCS1 


URING ABOVE Nelly ey SET 
SAVE SITS ta BURING OPERATION IN ROS! 


AVE FOR PRINTOUT 


: SHOULD 

; BRANCH IF GOOD 
DATA 

FAILING REGISTER RHO 

;DURING ABOVE OPERATI 

:MOL!DPR!VV SHOULD BSE 


;MOV 9 INTO SAVED RHWC 


; SAVED REGISTER TO CHANGE 
;DATA 


MCV _WREROM+<266.%2> INTO SAVED RHEA 
;SAVED REGISTER TO CHANGE 


DATA 
1 INTO SAVED RHCA 


CAVED REGISTER TO CHANGE 
sDATA 


1 INTO SAVED RHCC 


SAVED REGISTER TO CHANGE 
fh 


1 INTO SAVED RHDST 
SAVED REGISTER TO CHANGE 





760 MICRO1 SEC 


:DURING ABOVE OPERATION ONLY MOL!DPR!V\ 
BE SET 


TQ EXPECTED VALUES 
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NRTA Pl} SEEK TESTS 


TS65 
755° 
7658 031860 CO4037 O42354 ISR RO, JHCOMREG : COMPARE SAVED REGISTERS WITH 
7569 : PRESENT 1 ALUE 
7570 O31E64 Od4612 SAVERE :GO0D DATA SAVED IN ’SAVERE’ 
7671 O31S66 602354 Wwe TEST DATA STARTING FROM ’RHWC’ 
7673 931870 900022 18. ;18. REGISTERS TO BE COMPARED 
73 O31672 931676 1$ ‘RETURN TO 1$ ON 
seo O31874 031702 23 RETURN TO 8 ON NO ERROR 
7576 O3167 104927 13 ERROR 27 ;WRITE HEADER AND DATA 
77> 931708 300257 RTs Bc :CAUSED IMPROPER REGISTER 
7573 : CHANGE 
7603 #600 DATA GIVES WHAT SHOULD 
‘a-) 
7631 RECEIVED DATA GIVES WHAT 
rege “WAS THERE AFTER COMMANT 
75 a4 :#NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
regs :#NOTHING GOT CHANGED 
¢ 
e87 031702 2S: 
7683 931702 cC4d27 O43404 ISR RO, 2BCOMPAR :COMPARE TWO BLOCKS OF MEMORY 
7690 021795 003534 REINTO :GOOD DATA STARTS FROM REINTO 
763i 531710 002470 WREROM TEST DATA STARTS FROM WRFROM 
7692 831712 ooo42 266. 265. WORDS TO 
7693 031714 031720 3$ :RETURN TO 3% ON R 
ob) 931718 031724 4§ RETURN TO 4$ ON NO ERROR 
7696 
7687 021720 194020 33: ERROR 30 :WRITE HEADER AND DATA 
798 031722 00257 RTS PC :CHANGED WRITE FROM BUFFER 
f 
7706 #NOW A READ HEADER AND DATA COMMAND WILL SE GIVEN 
7a :#READ INTO BUFFER IS FILLED WITH ONES 

| g703 031724 ug: 

| 7705 031724 O04737 O41266 ISR PC, d¥CLDISK :SET RI =RHCS1 R2-RHCS2 
7706 :R3-RHOS1, RY-RHERL 
7707 : GIVE Recta” INITIALIZE 
7708 :SETUP UNIT NUMBER 

| 7793 031730 904037 941236 ISR RO, DHCLAREA : CLEAR 60. HORDE FROM REINTO 

| 7710 931734 903534 REINTO :STARTING FROM RELNTO 

: 7711 631736 o00404 260. :260. WORDS 

77ig 931740 177777 =i FILL WITH -1 

{ ‘(a= 

; 7714 

| ris s4WRITE FROM BUFFER IS FILLED WITH 10001.0.0,9,2000,2000, AND 254 cF 0 

| 2717 o3:742 OO4037 o4lel2 JSR RO, JHFLHEAD ;SAVE HEADER DATA IN WRFROM 

| 7718 O31746 902470 WRF ROM LOCATION WHERE SAVED 

| 7713 [31750 ocd006 6 !NUMBER OF WORDS SAVED 

{ 

| 


es cee em ae es + eee - a ee ee 





ANA Pa ZRII-A gx a 2 & FUNCT. CONT. TST-PT 1 


SEEK T 


019001 
000900 





002050 
92000 
Ooesoy 
000376 
900000 








004037 
000091 
S00 





000 
177374 





903534 


oCOSCO 
014080 


992450 


eet te 








004037 
854512 
ooot2e2 








004737 
194400 
cos009 
013777 
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sEIRST DATA WORD 


WORDS, FROM WREROM+<&#2> 
RTING FROM WRFROM+<S#2> 


3 *NOW FILL COMMAND 


;SETUP TO RUN FOR DATA COMMAND 
;CYLINDER 1 


mir 


; TRACK O 
;WORD COUNT (DATA) = 256. + 
4 HEADER WORDS 


S_ADDRESS 
| STARTING Pe ORTOS OF DATA 
T INAgHT oS "HORD FORT eee 


The IBIT’ ORR FC 
:D0 NOT INHIBIT ww "COMPARE 
;GET READY TO DO A REFOR 

READ HEADER AND para WITH 72 IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


S 
THE ay REGISTER SAVED 
RESS OF WHERE 


E 
‘NUMBER OF REGISTERS 
SAVED = 18. 


; CHECK DVA, RDY MOL DBR DRY VV = 
THAT NO Status BITS ARE stTutk =} 

NOT CONTINUE TESTING IF 

iT - FIRST SET OF BITS DON'T = 


OC4E06 + 15Cele SSRPYVEC,ARPVEC ; oeT, TIMEL IF ADDRESS 


IS PRESENT 
F B-CLOCK IS NOT PRESENT 
SAVE 


* WILL ONLY 
‘CURRENT CYLINDER ADDRESS 
ZAND LOOK AHEAD REGISTERS 





oe 
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pete BSENe0 DSETIE SODIDI Bis SSG TRT igpy EGET READY To. Ser 'Go" AND 
eda = er UU H ’ 4 ' , 
ose ! ‘PRaaE INTERREPT 
777? «(032064 Ol2677 180219 MOV (SP)+, JRHCS1 :60_ WIT TH 
Deke 72 IN RHCS1 FOR READ DATA 
7773 with INTERRUPT ENABLED 
7780 032070 911100 MOV JRI.ROC- :SAVE RHCS1 DURING ABOVE OPERATION 
cee 032072 911395 MOV aR3,RS :SAVE RHDS1 DURING ABOVE OPERATION 
7793 
7794 932074 104412 WAT :WAIT FOR RDY BIT TO SET 
7785 032978 302300 RHCS1 sWAIT FOR RHCS1 REGISTER 
7785 932:90 oo0200 RDY “WAIT FOR RDY BIT IN RHCS! REGISTER 
778" O3210e 091614 908. ;ALL OW gos0 MICRO SECONDS 
7788 032104 001507 939. “RDY MUST SET N 
033 *690 AND 17470 ATCRD SECONDS 
7791 ;#COMPARE CONTENTS OF RHCS1 AND RHDSI ALREADY SAVED IN 
738 :#RO AND RS IMMEDIATELY AFTER GO 
té 
7734 106 O13746 902450 MOV QeREFOR,-(SP)  ;SAVE COMMAND 
7795 O32lle OSe716 004191 BIS BIE'GO!OVA, (SP) ; INCLUDE 1E2G010vR 
779% 032118 911637 001124 MOV (SP), deSGDDAT ; SAVE FOR PRINTOUT 
7797 «032122 022800 CMP (Sp)4 ,RO DU RING ABOVE OPERATION ONLY IE!GO!DVA 
7798 ci ND COMMAND SHOULD BE SET 
7799 «932124 oOOl40S - BEQ 67 : BRANCH IF GOOD 
i 7800 932126 010037 001126 MOV RO, J#SBODAT ATA 
780i 932132 910137 604600 MOV R1; a#REGADR FAILING REGISTER RHCS1 
7802 O32136 10402! ERROR 21° ; DURING ABOVE OPERATIO 
7803 COMMAND Al 'GO!DVA SHCULD BE SET 
7804 032140 012746 o1csoo S7$: MOV SMOL!DPRIVV. -(SP3~ -SAVE BITS SET DURING OPERATION IN RHDS! 
7805 022144 011637 O01124 MOV (SP). 3eSGDDAT  ;SAVE FOR PRINTOUT ' 
7806 O32150 O22605 CMP (5P)4,85 [DURING ABOVE GPERATION ONLY MOL!DPRI\Y 
7807 :SHOULD BE SET 
7898 032152 o0140S BE 69% ; BRANCH IF GCOD 
7899 932154 010537 901:26 MOY RS, J#SBODAT TA 
7810 032160 019337 o04609 MOV R3, JBREGADR :FAILING REGISTER RHDS1 
| 7811 O32164 104063 ERROR 63 :DURING ABOVE OPERATION ONLY 
| 7812 :MOL'DPR!VV SHOULD BE SET 
| 7813 032166 £93: 
| 781s -¥CHANGE SAVED REGISTERS TO. EXPECTED VALUES 
| 7816 O32166 904037 041270 ISR RO, JSF ILLRE ;MOV 0 INTO SAVED RHWC 
| 7817 O32172 O02272 RHWC ; SAVED REGISTER TO CHANGE 
| 7818 932174 gcood00 0 
| 7819 032176 GO4037 041270 ISR RO, IWF ILLRE HOV REINTO+<260.%2> INTO SAVED RHBA 
| 7820 932202 002274 : SAVED REGISTER TO CHANGE 
| 7821 032204 o04s44 RE INTO+<260. *2> 
| 7822 032296 004937 041270 JSR RO, JF ILLRE 1 Tito. SAVED RHDST 
i 7823 O3221e 002304 SRVED REGISTER TO CHANGE 
rues 032214 s00c0l : DAT 
| 7826 :#COMPARE REGISTERS BEFORE READ HEADER AND DATA 
| 





a 


Oe 









!*WITH REGISTERS AFTER COMMAND 
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DZRITA.P 


032216 


932240 
032240 


032256 
032269 


032262 


SEEK 


004037 
004$1e 


032240 


194931 
200207 


994037 
20 


032262 


104032 
000207 


042354 


043404 


S$: 


6$: 


7$: 
‘ ° 


108: 





JSR RO, J#COMREG ; COMPARE b cate REGISTERS WITH 


: PRESENT 
SAVERE :GO0D DATA SAVED IN ’SAVERE’ 
WC TEST DATA STARTING FROM *SHWC” Ne 
18 318. REGISTERS TO BE COMPARED “ng 
S$ ;RETURN TO 5$ ON E ar 
6$ RETURN TO 6$ ON NO ERROR est 
ERROR 31 ;READ HEADER AND ‘gh Cees 
TS PC ; IMPROPER REGISTER CHANGE 


; GOOD para GIVES WHAT SHOULD 


H 
RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


;*NOW_READ INTO BUFFER WILL BE CHECKED TO SEE 
;*THAT READ WAS GOOD 


° ’ 
? ey 


JSR RO, J8COMPAR :COMPARE_TWO BLOCKS OF MEMORY 
WRF ROM ;GO0D DATA STARTS FROM WREROM 
RE INTO ;TEST DATA STARTS FROM REINTO 

260. WORDS TO BE COMPARED 
7$ ;RETURN TO 7$ ON ERROR 
10$ RETURN TO 10% ON NO ERROR 
ERROR 32 :WRITE HEADER AND DATA 
RTS PC : FOLLOWED BY AR HEADER 
;AND DATA GAVE A READ ERROR 


R 
ERROR MAY BE IN READ OR WRITE 











oe 11-DZRJI-A 
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CO4ED+ 


032460 
032500 


032102 


» 147662 


Ft ee tar ret Catt Tt etd 
aT T 43 SEEK $ WRT TEST (CYL = 0-10) 


ee ed 


See et erat ae as as ae et ae ae ew 


S-isb-ilelal-1-4-4-5-llelalalalabaelelalalaiabaeleiaialalabaieleiaiaiaiabaelehsiaisioloileisiaiaiaileleiaieisiieieiels 
SCOPE 


MOV aSTACK, SP sRESET_ STACK 

MOV #43, datSTNM ©»; SAVE TEST NUMBER 

JSR PC, @NCLOISK ——;SET_RI-RHCS1, _R2-RHCS2 
;R3-RHDS 1 


MOV #10000 2aST14+10 th) * 
MOV #<<18 B. #402 121. ,aeST2+10 
MOV #10001, a8ST 

MOV #2000 ae si¥é10 

MOV aaSTS+4 

MOV ul; BEBTENe 


deST6+16 
MOV #1000] SeTa+10 
MOV #2000, d8ST10+10 
MOV #1, a8ST11+4 


MOV Q#RPYVEC , IRPVEC ser, oe VECTOR ADDRESS 


MOV @SRECALI,-(SP) ;GET READY TO MOVE COMMAND 



























THIS TEST GETS THE HEADS OUT TO CYLINDER 10 NOT BY ONE 
SEEK BUT BY TEN IMPLIED SEEKS ONE CYLINDER AT A TINE 


THIS TEST STARTS WITH A (ALREADY TESTED) RECALIBRATE 
THAT_IS CYLINDER ZERO. THEN ON CYLINDER O SECTOR 
#1 Ms pats oe WORDS THERE 4p 


ee ‘1 SECTOR #21 TRACK #18 THERE SY GETTING 
THE HEADS TO CYLINDER 2 

THIS IS REPEATED 10 TIMES GETTING THE 

HEA i. TO CYLINDER 1 

THEN A SEEK COMMAND IS GIVEN TO CYLINDER 0 

AND DATA ALREADY WRITTEN IS CHECKED 














:GIVE i INITIALIZE 
:SETUP UNIT NUMBER 


j ¥THE FOLLOWING MOVES ARE TO INITIALIZE TEST FROM 
: *CYLINDER 0 


;*THESE LOCATIONS ARE CHANGED DURING TEST TO ENABLE 
;#GOING TO NEXT CYLINDER f I 

























;#THIS IS TO GET THE HEADS TO CYLINDER O 
: TO *TIMEL’ IF P-CLOCK IS PRESENT 
:9R TO 'TIMEe’ IF P- mr ee IS NOT PRESENT 
ME LL ONLY SAV 


0 
* CURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 





MRINDEC-11-D2RJI-A 
OZRIIA.P11 TY 


032410 
032414 


032420 
O3242e 
0324 

pause 
032430 


032432 
032434 


032436 


032444 





RPO4’S“6 FUNCT. CONT. TST-PT 1 
SEEK 8 WRT TEST (CYL = O-10) 


Bis 
MOV 


MOV 
MOV 


WAT 
RHDS1 
DRY 


31999. 


24001. 
MOV 
JSR 


JSR 


“rhe 

19000 
 ttaiaaethinas 
0 


JSR ‘ 
WRFROM+10 


eS6. 
(0. #2000 !<18.*40>!21. 
;*FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 


JSR 
WRFROM+< 260. ¥2) 


10001 


ooo 


JSR 
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;DRY MUST 
:799 


;SETUP UNIT NUMBER 
;*FILL WRITE FROM BUFFER WITH HEADER 


; SAVE HEADER DATA Ln 


;FIRST DAT 


: THIRD: DATA WOR 
FOURTH DATA BORD 


:4FILL WRITE FROM BUFFER WITH DATA 
;CLEAR 256. WORDS, FROM WRFROM+19 
256. WORDS 


; SAVE HEADER DATA IN gop ae -*#2> 


: FOURTH DATA WORD 
;*FILL WRITE FROM BUFFER WITH NEXT TRACK DATA 
;CLEAR 2 WORDS, FROM WRFROM+<264. #2> 





;GET READY TO SET ’GO’ AND 
; ENABLE INTERRUPT 


TH 
6 TN INTERRLeY REGAL IBRATE. 


SAVE RHCS1 DURING ABOVE OFERATION 
: SAVE RHDSI DURING ABOVE OPERATION 


;WAIT FOR DRY BIT TO SET 

WAIT ie ea REGISTER 

;WAIT FOR DRY BIT IN RHDS1 REGISTER 
s ALLOW 345200 MICRO SECONDS 


N 
560000 MICRO SECONDS 
TEN COUNT TO GET TO CYLINDER 10 


sSET Ri-RHCS!, afieahecse 
*R3-RHDS1, RY-RHE 
‘GIVE RH-{1 INITIALIZE 























;LOCATION WHERE SAV 
: NUMBER Fea SAVED 


WORD 
gee 3 DATA WORD 



















;STARTING FROM WRFROM+10 
3FILL WITH <O.#2000>!<19.#40>!21. 














TION WHERE SA\ 
S SAVED 












\ 
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DZRJIA. T43 


O3e6e4 011100 
032626 011305 


104412 
002300 


000200 
903237 
001515 


013746 
052716 


009001 


SEEK 8 WRT TEST (CYL = 


p0244y 
004101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


041270 


041270 


041270 


041270 


-i0) 


MOV dR1 , RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,RS ;SAVE RHOS1 DURING ABOVE C?ERATION 


;*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760 MICRO SEC. 
;¥MAX TIME ALLOWED = ONE REVOLUTION + SEEK + 2 SECTORS 
:*MIN TIME ALLOWED = 2 SECTORS + SEEK 


WAT j WAIT FOR RDY BIT TO SET 
RHCS1 ;WAIT FOR RHCS1 REGISTER 
RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
1695. ALLOW 16950 mice SECONDS 
845. ;RDY MUST SET 
:8500 AND 25400 MECRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


DRWRIFOR,-(SP) ;SAVE COMMAND 

BIE'GO'DVA, (SP) : INCLUDE 1E:G0!DvA 

(SP), aHSGDDAT SAVE FOR PRINTOUT 

(Sp RO” ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
: AND COMMEND penou LD BE SET 


; BRAN C 
SBDDAT TA 
#REGADR FAILING REGISTER RHCS1 
; DUR NG ABOVE OPERATION ONLY 
AND IE!GO!DVA SHOULD BE SET 
¥MOL! DPR! VV, -(SP3 jSBVE neat SET DURING OPERATION IN RHOS1. 
(SP @HSGDDAT  ;SAVE FOR PR 


P)+,RS ; DURING ABOVE NOPERATION ONLY MOL! DPR! VV 
;SHOULD BE SET 

66S BRANCH IF GOOD 

Ra guse0pAT 


, J#REGADR ‘Panuine. REGISTER RHDS1 
3 DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV SHOULD BE SET 


64S 
RO, d# 
R1}a 
21’ 


;*NOW CHANGES SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, J#F ILLRE ;MOV O INTO SAVED RHWC 
RHWC i SAVED REGISTER TO CHANGE 


0 

JSR RO, J#F ILLRE :MOV_WRFROM+<266.%2> INTO SAVED RHA 
HB : SAVED REGISTER TO CHANGE 

WRF ROM+< 266. #2> ;DATA 


JSR RO, J#F ILLRE ;MOV_1 INTO SAVED RHCC 
RHCC SAVED REGISTER TO CHANGE 


L 4 
JSR RO, J#F ILLRE 1 INTO SAVED RHCA 
on sSEVED REGISTER TO CHANGE 


SEQ 0230 
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SEEK & WRT TEST (CYL = 0-10) 





WOWDWMWDOWOWMWOVOWOWOVDOVINOVOVONOVOWONOVONDVOOWOOWMOMAD 
QE BBB VERZOR Sow len Lon oOb Ve Lar 





SEQ 0231 





JSR RO, J#F ILLRE ;MOV_1 INTO SAVED RHDST 
— igeveD REGISTER TO CHANGE 





;*COMPARE REGISTERS BEFORE TE HEADER AND DATA 
;*WITH REGISTERS ATER CORMAND 








JSR RO, J#COMREG cor ds | REGISTERS WITH 









; PRESENT 
= ; GOOD DAT SAVED IN ’SAVERE’ 
TEST DATA STARTING FROM ’RHWC’ 
is. 318. REGISTERS TO BE COMPARED 
U T? ON ERROR 





;WRITE HEADER AND DATA CA 
5 aT REGISTER CHANGE 
3 G00 D DATA GIVES WHAT SHOULD BE 


RECEIVED DATA GIVES WHAT WAS BE 
THERE AFTER COMMAND 


;*SETUP_TO READ HEADER AND DATA FOR NEXT TRACK 
:#FILL READ INTO BUFFER WITH ALL ONES 

























JSR PC, J#CLDISK ;SET_R1I-RHCS1, Re-RHCS2 


sRS-RH DSi, RY- 
:GIV eRe INITIALIZE 
ba ceat ‘uP UNIT NUMBER 
JSR RO, J#CLAREA °CL EA R 260. WORDS, FROM REINTO 
REINTO :STARTING -FROM RELNTO 
260. 260. WORDS 
=] FILL WITH -1 


;*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, J#F LHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM LOCATION WHERE SAVED 

4 NUMBER OF WORDS SAVED 
AO0G! ‘SECON DATA WORD 


0 R 
;FOURTH DATA WORD 


JSR RO, J¥CLAREA : CLEAR 2 WORDS FROM WRFROM+<4x2> 
WRFROM+<4%2> RTING FROM WRFROM+<4#2> 


4 
1#2000 SPILL Pine 1#2000 
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Pll T43 SEEK & WRT TEST (CYL = 0-10) 


033064 g04037 041236 ISR RO, JHCLAREA CLEAR 254. WORDS, FROM WRFROM+<Ex2> 
30 2504 WRFROM+<6%2> “STARTING FROM WRFROM+<6%2> 


3254. WORDS 
;FILL WITH O 


a3 
Z 


M-SBOVER ZB 


;*FILL COMMAND INTO REGISTERS 


a 
Ww 


904037 JSR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
000001 ;CYLINDER 1 
;SECTOR 0 
0 ; TRACK 0 
-256.-4 SHO COUNT (DATA) = 256. + 
ieee a 


eee Bus NG S OF DATA 
gia STeBIING sores 


0 D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 Bk TS PER WORD FORMAT 
sINHIBIT, CC_CORRECTION 
;D0 NOT INHIBIT HEADER COMPARE 
REFOR ;GET READY TO DO 
;READ HEADER AND DATA WITH 72 IN RHCS1 


;#SAVE REGISTERS FOR COMPARISON AFTER REAL HEADER 
;#AND DATA 


JSR RO, J#SAVER FHA mecfsre RS 
RHWC S THE FIRST REGISTER SAVED 


_— Q PUN Ha a SAVE 
16. f oA REGISTERS 


A) coal 
JSR PC, JUCHECKT ;CHECK DVA, RDY, MOL, DP 
?AND THAT NO STATUS B 
TYPE _, CPHALT : CANNOT CONTINUE. TEST 
:THE FIRST SET OF BIT 
033142 HALT : STOP 
033144 147114 MOV QWRPYVEC,ORPVEC ;SET RPOY VECTOR ADDRESS 


TO *TIMEL’ IF P-CLOCK IS PRESENT 
‘oR TO * TIME?” 7 cao IS NOT PRESENT 


R 
I 
I 
S 


? WILL ONL 
CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


002450 MOV QHREFOR, -(SP) sGET READY 19 MOVE COMMAND 

000101 BIS #GO!TE, (SP), *GET READY TO SET GO’ AND 
sENABLE INTERRUPT 

147112 MOV (SP)+,9RHCS1  ;GO WITH 


ee ee ee ee ee ee ee he he ee bb 0 be be bb b= ps he = fh hb 


$B QOPUt EOP BOS IG TOT 2 OSU Coe 0 WEP UE COFOr-uD0d OFUTE COPO dd 0 GOT 








=e: IIs. 


eiseteslealei test istislislest isles) ae 


furoruruforure + ptetet 20 0-2 -0-+ > $b 0h 


fufururofofurufuforurorure 


CHUN ie ION Ft OBEIFRLOE CBE IRR LED | 


fu 
£G) 


viwuw 
ifuru 


foro Foru fur urorufurururororururory 


( 

furu 
roruru 
Nou 


LY) 
wo 


fe OBO GEA Eton 


MAINDECS11-DIRIICA, 8PO4 


Fis T43 


011100 
811305 
1o44ie 
CO2309 
g90200 
901814 
00i§S7 


aus 


—-OO0Nd 
Paes 
Bc 


It TUtIGnD 
“IW oN 


& forms 


-(90) 


904837 


£63: 





ST SET BETWEEN 
3690 AND 17470 MICRC SECONDS 


;#COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:#RO AND RS IMMEDIATELY AFTER GO 


MOV DBREFOR sSAVE COMMAND 
BIS oTeieot BVATt cep) ; INCLUDE TE:GO1DvA 
MOV SP}. aeSGODAT Sart FOR PRINTOUT 
CMP (5P)4,R0 ABOVE OPERATION ONLY IE!'30!DVvA 
COMMAND SHOULD BE SET 
BE G43 : BRANCH IF 
MOV RC, asSBODAT :BAD DATA 
Moy =-»sdRJ ; 2@REGADR ‘FAILING REGISTER RHCS1 
ERROR at : QURING ABOVE OPERATION ONL 
MMAND. AND IE'GO!DVA SHOULD BE SET 
MOV SMOL!DPR! vv. -(SP4 Save nee SET DURING OPERATION IN SHDS 
MOV (SP). JaSGDDAT :5Ay — FOR PR 
¢! (SP)+,R5 URING ABOVE OPERATION ONLY MOLIDPRE VY 


UL 
BE9 66S : BRANCH IF GOOD 
MOV RS, J#SBODAT DATA 
MOV R3, J#REGADR FAY abate REGISTER RHOS1 
ERROR 63 DU URING ABOVE OPERATION ONLY 
;MOLIOPR!VV SHOULD SE SET 


;*CHANGE SAVED REGISTERS TC EXPECTED VALUES 


JSR RO, J8FILLRE ;MOV_O INTO SAVED RHWS 
RHWC oe REGISTER TC CHANGE 


Q 
JSR RO, J#F ILLRE 


HBA VED REGISTER TO CHANGE 
. REINTO+< 260. #2) DATA 
JSR RO, JF ILLRE 1 INTO SAVED RHDST 
RHOST pied REGISTER TO CHANGE 


;#COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 
;*REGISTERS AFTER COMMAND 


JSR —s-RO, ABCOMRES 





;COMPARE SAVED REGISTERS WITH 


! 1. MACYLL 27(65S) 30-MAR-76 22:59 PAGE 173 
-72 IN RHCSL FoR READ DATA 

WT INTERRUPT ENAEL 
MOV 3R1,RO :SAVE RHCS1 ABOVE OPERATION 
May dR3.RS : SAVE AROS: BUR Ne ABOVE OPERATION 
WAT sHALT FOR ROY. BIT 10 SET 
RHCS] WAIT FOR RH 
RDY Malt FOR reer arcs REGISTER 
308. sBLLOW 8 oFage ate 5 ECOND 


V _REINTO+<260.%2> INTO SAVED RHSH 








MAINDEC-L1-DIRII-A, RPOY/5.6 FUNCT. CONT. TST-PT 1 
SEEK $ WRT TEST (CYL = 





T43 


aser Seeks 


DRIIA.PL! 
9243 
roe 
245 
S246 
S247 33386 
8248 033330 
$243 
$350 033332 
8251 033334 
. 82Se2 
8253 
£254 
8255 
B56 
8257 
8258 033336 
8259 
8269 933336 
8251 O3334e 
8262 033344 
8263 933346 
6264 033356 
8265 033352 
8265 
8257 a 
8268 932954 
82639 033256 
8270 
8271 
se7e 
ge73 
§274 
ge75 
82° 
8377 
827s 
8275 
8289 
8281 
8282 933369 
8283 033364 
8254 372 
8285 033376 
8286 34 
8287 933410 
8288 033414 
8289 933420 
8250 933424 
Be91 033432 
8292 3436 
6293 22442 
264 033444 
BeSS 9 O3S446 


P3535 


304031 
o0cec 


O04%C37 
20 


ANS 137 


wwwe 


043424 


0324 
002 


932500 
032532 


033062 





STi2: 


w 
~ 
- 
a 


ST14: 


S715: 


STl6: 


ee ee eee 


















hto) MACYL1 27(655) 30-MAR-76 22:59 PAGE 174 SES C2e34 
SAVERE i606 DA ATA AY AvERE" 
WE a ATA FE: REED IN F yak *RHWC 
18. REGISTERS 4 ae APEC 
STle ‘Ret RN Bis STle 0 
ST13 RETURN TO ST13 ON fd. ERROR 
ERROR 31 ;READ HEADER AND ‘gi CAUSED 
RTS Pc ;IMPROPER REGISTER CHANGE 


:G000 DATA GIVES CIMAT SHOULD 


:RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER COMMAND 


;#READ INTO SUFFER IS CHECKED FOR PROPER READ 


it RC, J8COMPAR 23 ta TWO BLOCKS OF MEMORY 
fees $000 pare STARTS FROM WREROM 
REINTO ‘TEST DATA STARTS FROM REINTO 
26d. :260. WORDS TO BE COMPARED 
ST14 ;RETURN TO ST14 ON ERROR 
sT15 RETURN TO STIS ON NO ERROR 
free 3é ;WRITE HEADER AND CATA F hoc 


READ 
AND yDATA ON THE 
:NEXT TRACK GAVE A 


ERROR MAY BE READ OR WRITE 
Ree HAVE ADVANCED ONE CYLINDER BY AN IMPLIED 
; #CHA NGES WILL BE MADE TO ENABLE GOING TC THE NE 
*CYLINDER ANC THEN THE ASOVE WILL BE REPEATED 
STILL CYLINDER 10 IS REACHED 
INC aeSTl 
0 


+10 : 
AD acl. $2000), deST2+10 
INC J#ST3+10 


ADD a<l. £2000) , aaesST4+10 

INC aeSTS+4 

INC aeSTS+6 

INC aeSTb+16 

INC + eo 10 

AoC {, #2000), DeSTLO+10 

INC sesti 

DEC aasT np! COUNT Je TEN TIMES 
BNE ST16 :SRANCH IF 19 NOT DONE 
OR stir 710 SOMPLETED SO CONTINUE 
IMP .$T1 : JUMP AS 10 NOT DONE 


PTT AT ATA At at at 
] 
0-2 * b-< b+ B= = 9 BC -) lon] 
PUL OITU- OW 


PALL AT ATT TAT at AT 


w 

@ 

TUTU»--o-- 
U1 toter-OwWw 


«w 
JIOIIGI 


Mm 


oe ee et ee ne ET OE A CRD 6 NS NSS 





MAINDES$11-DIRIT 
DIORIIA.PL) 


C334Se 
* 033452 


033456 
C334S2 


Daa47e 
032474 


033478 


023504 
533515 


033514 


033520 
033522 


aaereera eters 


ST-PT t) MACY11 27(655) 30-NAR-76 22:59 PAGE 175 | SE3 Ce3s 


;*THE HEADS ARE NOW AT CYLINDER id 
: SAL REGISTERS WILL BE SAVED AND A SEEK WILL BE GIVEN 


CYLIN 
FILL REGISTERS FOR A SEEK COMMAND 


JSR Po, decLOIsk " RL-RHCS1, Re-RHCS2 


;GIV 
SETUP UNIT NUMBER 


JSR RO, d@SEEKCY ;SEEK FOR 
0 ;CYLINDER 0 


ptSAVE REGISTERS FOR vate a AFTER SEEK COMMAND 
YsR + VE REGIS 


RO, asSAVER 
RH HWC IS y FIRST REGISTER SAVED 
SOVERE + OUARTING A DORESS OF WHERE 
: THE REGISTERS ARE cay ED 
18. : NUMBER . EGISTERS 


;SAVED = 


MOV DBRPYVEC , SRFVEC saeT, 2 VECTOR ADDRESS 
TIMEL’ IF P-CLOCK 1 PRESENT 
of TO "Times" IF P-CLOCK IS NOT PRESENT 
TIME’ WILL ONLY SAVE 
:CURRENT CYLINDER RDDRESS 
SAND LOOK AHEAD REGISTERS 


MOY QsSEECOM,-(SP) GET READY TO MOVE COMMAND 
gis eGo'Te, (SP) :GET READY TO SET °GO” AND 
‘ ENABLE INTERRUPT 

MOV (SP)+, ORHCS! 00 
A Buc Sl FOR SEEK 


din INTERRUP T ENASLED 
MOV 3R1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV 3R2,R5 :SAVE RHDS! DURING ABOVE OPERATION 
:#SEEK FOR ONE CYLINDER=7MILI SEC., FOR TEN=70 MILI SEC 


;WAIT FOR ORY BIT TO SET 


SEE 
O't 


RHDS! WAIT FOR RHOS1 REGISTER 

ORY ;WAIT FOR ORY BIT IN wens REGISTER 
7000. sALLOW zoo MICRO se COND 

3s. ;DRY MUST SET B 


:69650 AND 70350 MTGRO SECONDS 


;#COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:#RO AND RS IMMEDIATELY AFTER GO 


MOV DeSEECOM,-(SP) SAVE COMMAND 
BIS sDVAIGO' TE Ry, (SP) s INCLUDE DVA!IGO!TE!RDY 





bea ee | Red 
DIRIIR.P12 


Q3354%6 
0338Se 


033554 
O33 


933634 
03364C 


032642 
033644 
033846 
033659 
033654 
933656 


033659 
C3362 


033654 


C23 
632700 


033702 





I-A, RPOY. 5.6 FUNCT. CONT. TST-PT 1 
743 SEEK $ WRT TEST (CYL = O-] to) 


U11$37 
d22600 


0$3737 


ee 
C0232 

09099: 
099091 
190009 


00493" 
002200 


900991 


000001 
290000 


604037 
pOgie 


104937 


001124 


001125 


904600 


o412°9 


poured 


C4e246 


042354 


004636 


Mov 
oMP 


BEO 
MOV 
MOV 
ERROR 


Sé§: 


sc 


;#COMPARE REGISTERS AFTER A SEEK COMMAND 


JSR 

SAVERE 

We 

18. 

$718 
$719 

S718: ERROR 


ee = eee ee ee et eee 


CHANGE SAVED REGISTERS TO EXPECTED VALUE 
























03 
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iA SE SOR TE ea raen gu ouscorten 
i - BND ‘Cor pn Np oan HOULD ie Set vtine tae arta 
RC, J#SBODAT 

Ri, " DHREGAOR ote REGISTER RHCS1 


ATION ONL 

: VATGO! TES RDY- Suoutp BE SET 
#PIP!MOL! DPRIVY,~ (SP) ;SAVE eats SET DURING OPERATION ZN RHOS! 
(3P) JeSGDDAT ‘;SAVE FOR PR 


P)$.85 : DURING ABOVE NOPERATION ONLY PIP!MOLIDPR! VY 
:SHOULD BE SET 
6S ‘BRANCH IF GOOD 
RS, J#SBDDAT DATA 


RS, J#REGADR FAILING REGISTER RHDS1 
SDURING ABOVE OPERATION ONLY 
:PIP!MOL!DPR! VV SHOULD BE SET 


RO, J#FILLRE ;MOV_O INTC SAVED RHCC 
‘SAVE ED REGISTER TO CHANGE 


DSATTENT, dBSAVERE+24 sal APPROPRIATE ‘ATA’ SITS 
WORKING DRIVE IN 
‘CAVED RHAS LOACTION 


RO, 2eCHREG ;CHANGE BITS IN SAVED REGISTES 
;CHANGE RHDS1 REGISTER 


31 et fo ofa CHANGED 
NEW VALUE OF ATA IS 1 
* CHANGE RTA BIT 


RC, daCHREG ;CHANGE BITS IN SAVED REGISTE 
;CHANGE RHCS1 REGISTER 


31 BIT/BITS TO BE or die 
NEW VALUE OF Se IS i 
CHANGE S¢ BIT 


RO, J8COMREG tERESENT TAL ~_ REGISTERS WITH 


RESENT 

;G00D DAT a SAVED IN *SAVERE* 

I TEST DATA ING FROM "RHWC" 
:18. REGISTERS TO BE COMPARED 
:RETURN TO STI9 ON ERROR 
ERETURN TO ST19 ON NO ERROR 


3? ;SEEK COMMAND CAUSED AN 





a ae 
‘ 


MAINDEC“11-DIRII-A, RPO4-S & FUNCT. CONT. TST-PT 1 MACYLL 27(65S) 30-MAR-76 22:59 PAGE 177 
DZRIIA.PLL “743 SEEK $ WRT TEST (CYL = O-10) 
405 033704 900207 RIS pc sERROR 
S408 ; GOOD DATA GIVES WHAT SHOULD 
wi 
Ea :REC VED DATA GIVES WHAT WAS ry 
g103 : THERE AFTER A SEEK COMMAND vy 
du y 
S41 8 THIS POINT THE CURRENT CYLINDER IS GOOD AND THERE ARE 
94:3 READ HEADER AND DATA WILL BE DONE ON CYLINDER 2 
3415 eer TOR 21 TRACK 18, EXPECTED DATA IS 1125 
S415 :#FOR 10 WO 
evig :#CLEAR READ INTO BUFFER WITH ALL ONES 
B418 033706 ‘ ST19: 
9419 933708 204037 O41236 ISR RO, J#CLAREA ;CLEAR 260. WORDS, FROM REINTO 
8420 033712 993534 REINTO : STARTING FROM REINTC 
8421 933715 O00454 260. WORDS 
S422 O3371& lorrre =] FILL WITH -1 
a a 
ace s#FILL WRITE FROM BUFFER WITH EXPECTED DATA 
8427 033720 o04037 O41212 ISR RC, JeFLHEAD ;SAVE HEADER DATA IN WRFROM 
B4e8 933724 902470 WREEOM : LOCATION WHERE SAVED 
8429 933726 of0o04 4 UMBER OF liROs SAVED 
8439 933730 010900 1ec00 SP URST DAT: 
843i 033732 011025 (19. #490>8<21.> OE OND DATA WORD 
9432 34 gonodc 9 : THIRD DATA WORD 
8423 9337 cod :FOURTH DATA WORD 
8434 033740 O04037 041236 ISR RO,decLaREA. CLEAR id. WORDS. FROM WRFROM+<4, #2> 
8435 933744 O02 WREROM+<4, #2) TARTING FROM WREROM+<4. #2) 
8436 033746 o0d0le 210. wore 
at 033750 001125 (18. #40>8<24.> sFILL WITH <18.#40>!<21.> 
8435 033752 004937 041236 ISR RO, J8CLAREA :CLEAR 246. WORDS, FROM WREROM+< 14. 42° 
9446 933 002524 WRFROM+< 14! #2) -STARTING FROM WRFROM+< 14. 42> 
8441 033760 909366 24s. :248. WORDS 
Buus 033762 177777 =] ‘FILL WITH -1 
gaan 
“—~? . 
ane s#FILL READ HEADER AND DATA COMMAND FOR 10 WORDS ss 
e f fy 
B44? 033764 994037. 043340 JSR RO, RUN : SETUP TO RUN FOR DATA COMMANE ‘ uf 
446 033779 s00586 CYLINDER G AC 
449 933772 5 BYTE 21. :SEC OR el. 7) 
8450 933773 de ‘BYTE 19. TRACK 18. 
8451 933774 177762 -i0.-4 :WOR COUNT (DATA) = iD. + 
gute ABER WORDS 
S453 032776 903534 REINTO ‘gus ADD RESS 
S454 : STARTING RODRESS OF DATA 
By5S : BUFFER NTO 
B456 924000 900009 9 :DO NOT IN NATOTT BUS ADDRESS INCREMENT 
B457 034952 019009 ECINFMTzZe 16 BITS HORD FOR?! 








mm a ee + ee 5 en ee 


03 


PER 
; INHISIT’ Bc CORRECTION 




















SES 0237 






DZRIIA 


034034 


534026 
034932 


034036 


C3042 


024052 


034054 


934072 
034074 


O34076 


NAINDEC- 5i1-D2RJIZ8 
Pll T43 


002450 


cour? 
1o4Hon 
eo0900 


Sis??? 


RPO4’S.6 FUNCT 
SEEK $ WRT 


MACY11 27(655) 


REFOR 
041446 JSR PC, aaCHECKT 
O&5402 TYPE .CPHALT 
HALT 


OS4696 46249 DBRPYVEC , IRPVEC 


992450 MOV DHREFOR , -(SP) 
826191 BIS aGOrre, SP) 
148236 MOV (SP)+,QRHCS1 — ;60_W 


;*CHECK READ WORDS 


C434C4 JSR RC, J#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRFROM :$00D DATA STARTS FROM WRFROM H 
REINTO :TEST DATA STARTS FROM REINTO 
260. 7269. ROS TO BE ARED 


ST26 
Ste? 
STe6: ERROR 32 
RTS PC 
ster 
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;WAIT ade RHCS1 REGISTER 


ON ERROR 
_}RETURN TO 5127 ON NO ERROR 











SE9 0238 





;00_ NOT INHISIT — _— 
:GET READY TO DO 
SREAD HEADER AND Bata ITH 72 IN RHCSi 






Y 





: CHECK pve RDY MOL DPR, DRY, VV 
T No Status BITS ARE sTutx =} 

OT CONT TRUE TESTING IF ANY OF 

s THE FIRST SET OF BITS DON’T = 














‘oT RPOY VECTOR ADDRESS 

310 *TIMEL* IF P-CLOCK IS PRESENT 

OR TQ oi MEe’ IF P-CLOCK IS NOT PRESENT 
; TIME’ WILL ONLY SAVE 

; CURRENT CYLINDER ADDRESS 

SAND LOOK AHEAD REGISTERS 







;GET READY 18 MOVE cone 
:GET READY TO ru "GO" A 






‘Gay INTERRU 


TH 
IN RHCS1 FOR READ DATA 
sul INTERRUPT ENABLED 






sWAIT FOR ROY BIT TO SET ' f 







RDY BIT IN RHCS! REGISTER 
¢ SECONDS 





ET 8 
7690 AND 17470 MICRO SECONDS 









;READ HEADER AND DATA 
FOLLOWING A SEEK TO EYLINOER 0 
FROM CYLINDER 10 GAVE 9 

S ERROR 


cp 00cn (9 
WOU az 


chu 


934075 
634190 
834108 


034i 12 


034236 


034124 
Cs4i30 


O34i34 


034140 
034142 


034144 
03 


pour 
>) 


004737 


O13777 


0137' 


ac 

ui 

fu 

Ny 
“J ot 
“J oo 





‘5’ 
SEE 


091309 
000044 


941366 


oo4e08 


002426 
090191 


146140 


C4336 


“reel a -PT | MACY11 27(655) 30-NAR-76 22:59 PAGE 179 


Ue > he ie ie ie or ie oie kk 


tt RO, JBSEEKCY ; SEEK 


= 0-10) 
1 aay gg Ee ea  emepemniaaaaaacimaase 
‘ATE ST 44 SEEK & READ TEST (CYL = 009) 


THIS TEST DEPENDS ON HEADER AND DATA WRITTEN SY THE 
PREVIOUS Fe AT THIS POINT THE HEADS ARE ON 


CYLINDER 
ALL_REGISTERS ARE SAVED 
A SEEK IS GIVEN TO CYLINDER 9 
ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
DATA WRITTEN ON CYLINDER 9 IS CHECKED 
ss oT 7, Betamnmepenenne> teaamameitineaccctce tre 
MOV #STACK sRESET STACK 
MOV 854, SStern :SAVE TEST NUMBER 
ISR PC, J#CLDISK ;SET_R1-RHCS1, Re- RHCS2 
=R3-RHOS1, RY-RH 


GIVE ered INTTTAE IZE 
:SETUP UNIT NUMBER 


;*THIS GETS HEADS TC CYLINDER 


0 
MOV @eRPYVEC, IRPVEC 35! FINEL’ TEP ADDRESS 


IF P-CLOCK IS PRESENT 
‘OR TO "TIMES" IF P-CLOCK IS NOT PRESENT 
’ WILL ONLY SAVE 
S CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV asRECAL -(SP) ;GET READY TO MOVE COMMAND 
ais #GO'TE. (SP) :GET READY TO SET 'GO° AND 
: ENABLE | INTERRUPT 
MOY (SP)+, 2RHOS! :60_W 
IN RCS! FOR RECALIBRATE 

SHITH INTERRUPT ENABLED 
MO' 3R1.RO :SAVE RHCS! DURING ABOVE OPERATION 
MOV 3R3.RS :SAVE RHDS1 DURING ABOVE OPERATION 
WAT :WAIT FOR DRY BIT TO SET 
RHDS! :WAIT FOR RHOS1 REGISTER 
DRY !WAIT FOR DRY BIT IN RHDS!1 REGISTER 
31999. TALLOW 319990 MICRO SECONDS 
24C0l. :DRY MUST SET 


S N 
379980 AND S89000 MICRO SECONDS 
;*FILL REGISTERS FOR A SEEK COMMAND 


FOR 
:CYLINDER 10. 








B: 








































































4 
bere DBNi%0 
8567 034172 
8569 034174 


8572 034176 


8$80 34204 
8581 934210 


034214 


8586 034220 
8587 d34e22 


8591 C342e4 
32 


8595 034234 


B60i 034236 
8602 o32424e 
8603 034246 

ga4es2 


8605 oxi 


86:5 034302 
B61E 034304 
8617 034310 


gion 


oC4$1e 
o0o0¢e 


013777 


ate 


013746 


022605 


001405 
010537 
019337 


OC46CE 


ode4S2 
909181 


148060 


092452 
004391 
001124 


601126 
004600 


G30500 
001124 


001126 
004600 


&7$: 


RO, J#SAVER 


MACYL1 27(65S) 
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jean" REGISTERS FOR Cie ned AFTER SEEK COMMAND 
RHWC 


SAVERE 


18. 


MOV 


MOV 
MOV 


é R 
tRHWC IS tHE FERST REGISTER SAVED 
WHERE 


SNUMBER OF REGISTERS 
SAVED = 18. 


DBRPYVEC ARPVEC ; get re VECTOR ADDRESS 


2aSEECOM, -(SP) 
#GO'TE, (SP) 


(SP)+, JRHCS1 


dR1,R0 
JR3,RS 


IF be Bees IS PRESENT 
;9R TQ ’TIME’ IF P — IS fiat PRESENT 


:’ TIME’ WILL ONLY 
CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET °GO’ AND 
:EN ri INTERRUPT 


60 W H 

4_IN RHCS1 FOR SEEK ) 
:WITH INTERRUPT ENABLED + 
:SAVE RHCS1 DURING ABOVE OPERATION wey 
;SAVE RHDS1 OURING ABOVE OPERATION . 


;#SEEK FOR ONE CYLINDER=7 MILI SEC., FOR TEN=70 MILI SEC 


WAT 
RHDS1 
DRY 
7000. 
3s. 


;WAIT FOR ORY BIT TO SET 


: OR RHDS1 REGISTER 
;WAIT FOR DRY BIT IN RHDS! REGISTER 
ALLOW 70000 MICRO SECONDS 


:DRY MUST SE EN 
69650 AND 70350 MICRO SECONDS 


; XCOMPARE CONTENTS OF RHCS1 AND RHOS! ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 





aaSEECOM = (SP) 
#DVA!GO! TEI RD 
(SP) gesaBOAT 
(5P}4,R0 


67$ 
RO, d#SBDDAT 
ae , JHREGADR 


#PIP!MOL!DPRIVV, irae 


(SP), J#SGDDAT 
(5P)4,R5 


693 
RS, d#SBD0DAT 
R3, J#REGADR 


-SAVE COMMAND 
, (SP) “INCLUDE DVA!GO! IE!RDY 
VE FOR 


PR 

; DURING ABOVE OPERATION ONLY DVAIGOIIE!RDY 
COMMAND SHOULD SE SET 

: BRANCH IF 

;BAD DATA 

sF ALL ING REGISTER a 
ot NG ABOVE OPERATION ONL 
Saas AND DV Aigo! TE'RDY- eHOULD BE SET 


:SAVE FOR PRINTOUT 
: DURING ROVE OPERATION ONLY PIP!MOL!DPR!VY 


SHOULD B 
; BRANCH IF GOOD 
FAILING REGISTER RHDS! 


;SAVE BITS SET DURING OPERATION IN RHDS! 
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DORTIA.PLi T4H4 SEEK & READ TEST (cYL = 009) 
8618 O34314 104963 ERROR 63 ;DURING ABOVE OPERATION ONLY 
8619 :PIP!MOL'DPR!VV SHOULD BE SET 
B20 034316 59%: 
2 :*#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 





8$24 paiad8 pees, 041270 é is. RO, d#F ILLRE OV ER CRE A OTE yO CREME 
Bese ON3S4 D0bDL2 : 10: ‘Bat 

5628 034326 O0S3737 OO0474O 004636 BIS JBATTENT, J#SAVERE+24 s SET APPROPRIATE *ATA’ BITS 
£629 ;FOR WORKING DRIVE IN 
Beat SAVED RHAS LOACTION 
8632 034334 004037 O42246 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
os C34340 02322 RHDS1 CHANGE RHDS1 REGISTER 

8635 O3434e 000001 1 id uae Ps CHANGED 

8636 034344 000001 1 W VALUE OF ATA IS 1 

pag 034346 100000 ATA CHANGE ATA BIT 

8639 O3435G 904037 C42246 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 


8640 034354 002300 RHCS1 :CHANGE RHCS1 REGISTER 


- ‘neon, 


8641 s 
B642 034356 000001 . os id BIT/BITS TO BE CHANGED 

8643 934360 009091 ieee ;NEW VALUE OF SC IS 1 

Bue 034362 100000 SC :CHANGE SC BIT 

ois ;*COMPARE REGISTERS AFTER A SEEK COMMAND | 


ees 034364 9004037 042354 JSR RO, J#COMREG ORESENT VALLE REGISTERS WITH 
8650 034370 O04Sle SAVERE ; GOOD DATA SAVED IN *SAVERE* 
8651 034372 002354 wc ; TEST DATA STARTING FROM "RHWC* 
8652 034374 Oo0002e 18. 18. REGISTERS TO SE COMPARED 
8653 034376 c3440e 1$ RETURN TO 1$ ERROR 
pa O34400 034405 es ;RETURN TO 2$ ON NO ERROR 

5 
8656 934402 104037 1$: ERROR 37 ; SEEK COMMAND CAUSED 
86S” O34404 000207 RTS PC 
8658 6000 DATA GIVES WHAT SHOULD 
8659 BE THERE 
860 ;RECEIVED DATA GIVES WHAT WAS 


be 
8663 ;#AT THIS POINT THE CURRENT CYLINDER IS GCOD AND THERE ARE 
8664 3 #NO ERROR BITS 
8665 READ HEADER AND DATA WILL BE DONE ON CYLINDER 9 
SEE TeECTOR 21 TRACK 18, EXPECTED DATA IS 2312s 
8657 ; #FOR 20 WORDS 
8668 :*CLEAR READ INTO BUFFER WITH ALL ONES 


| 8661 ; THERE AFTER A SEEK COMMAND 
8670 034406 2s: 
L 








ZRIIA.P11 TH4 
8672 034405 004737 








404 
8679 034422 177777 











86 
8685 oaiasa 094037 
86 34 70 













































8705 034474 ii 
8707 O34476 02s 
8708 034477 Dee 
aes 034500 177750 
8711 034502 003534 















8722 034512 004737 
8704 034516 104400 











wae ett ZRIT-A, RPOWS’6 FUNCT. CONT. TST-PT 


1 


SEEK & READ TEST (CYL = 009) 


041366 


041236 


O4leEle 


041236 


041236 


043349 


041446 


066402 


JSR 


;*FILL 


JSR 


WRF ROM 
4 


0 
JSR 


MACY11 27(655) 


PC, J#CLDISK 


RO, d#CLAREA 


sSET Ri-RHCS1, Re-R 
Re =R 


HDS 
GIVE RH-{1 INITIAL 
Se Top UNIT N 

:CL WORDS 


EAR 260. tnt 
; STARTING FROM REZNTO 
WORDS 
FILL WITH -1 
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HCS2 
IZE 
ron REINTO 





WRITE FROM BUFFER WITH EXPECTED DATA 


RC, J#FLHEAD 


10011 

£18. #400? !<21.> 

RO, J#CLAREA 
WRFROM+<4. #2> 

9. #2000) $< 18. #40>!#<21.> 
ISR RO, J#CLAREA 
WREROM+< 24. ¥2> 

50. 


:CL LEAR 
:20. words” 





;SAVE_HEADER DATA IN WRFROM 


;250. 
SFILL WITH =i 


LOCATION WHERE SAVED 
; NUMBER OF WORDS SAVED 
DATA WORD 

ECOND DATA WORD 
RD DATA WORD 
: FOURTH DATA WORD 
20. HORDS FROM WRFROM+<4. x2> 
ARTING FROM WRFROM+<4. ¥2> 
FILL WITH ¢9.*2000>!<18.*40>!<2 


;CLEAR 250. WORDS, FROM WRFROM+<24. *2> 
oie ARTING FROM WRFROM+<24. #2> 


;*#FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 


REINTO 


REFOR 


JSR 
TYPE 


RO, J#RUN 


1] 
ECI!FMT2e 


PC, J#CHECKT 
, CPHALT 


INKIBIT BUS 
316 BITS PER 


;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 9. 

SECTOR 21. 
TRACK 18. 

; WORD COUNT (DATA) = 20. + 

ER WORDS 

;BU RESS 

STARTING ADDRESS OF DATA 
:BUFFER = REINTO 
:D0 NOT Rin A 8 DESCENT 


; INHIBIT’ ECC CORRECTION 
D0 NOT INHIBIT HEAD 


REFOR 
sREAD HEADER AND DATA WITH 72 IN RHCS1 





3 CHECK DVA,RDY, MOL, DPR, DRY, VV = 
T No star 


us 8 


Its ARE “StU =1 
+ CANNOT CONT TRUE TES PING v OF 
‘THE FIRST SET OF BITS Bon a 





DZRITA.P11 


034522 
034524 


034602 


MAINDEC-11-DZRII-A, RPO4/S’& FUNCT. CONT. TST-PT 1 
SEEK 8 READ TEST (CYL = ) 


T44 
ooo00c 
013777 


013746 
352716 


012677 


104412 
002300 
000200 


001614 
001507 


104032 
000207 


MACY11 27(655) 


CO4606 = 145534 DBRPYVEC ARPVEC ; 


;*CHECK READ WORDS 





30-MAR-76 22:59 PAGE 183 SEQ 0243 


; STOP 
HO Tine it etek fs PRESENT 
TIME2’ I K iS NOT PRESENT 
a itt oy SE 
AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO = *GO’ AND 


; ENABLE INTERRUPT 
160, TH 


u 
IN RHCS1 FOR READ DATA 
suit INTERRUPT ENABLED 


STER 


SET 
RHCS1 REGISTER 
CONDS 


;RDY SET 
3690 AND 17470 MICRO SECONDS 


OOD BA TWO BLOCKS OF fal 


D0 
m 
aes) 
=z 
ong 
oO 
Ww 
wn 
oS 
Pe *] 


RETURN TO 4S ON NO ERROR 


;READ HEADER AND DATA 
FOLLOWING A SEEK TO aes 9 
sEROM CYLINDER 0 GAVE A 





ee ee ee ee a ee ee 


MAINDEC-11-DZRII-A, RPOW/S/’6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-MAR-76 22:59 PAGE 184 SEQ Ce44 
OZRIIA.P11 WRITE CHECK DATA & WRITE PROTECT TESTS 
gee -SBTTL WRITE CHECK DATA & WRITE PROTECT TESTS 























paeneee 





Bes 


&@ Ben coed eo eo ob BB ODED 





Pe ee ee 
OO NOU £UWTe-O 








~o 





ow 
@ 
fur 
wr 





etectetected 
HO 








MAINDEC- 
OZRIIA.P1l 


3 


4650 
034654 


THs 


000004 
0i2706 
012737 
004737 


004737 
104400 
000000 
004037 
000005 


013777 


013746 
052716 


001000 
000045 
041366 


002452 
000101 


004604 


145416 


11-DZRJI-A, RPO4/S/6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-MAR-76 22:59 PAGE 185 
WRITE CHECK HERDER AND DATA 








SERRA ARRAAA AERA AK LE REEL LRA E LER E REL EE RAAE RARER ERASE REALE RRR L ELLER 


: ATEST 


Se heh te ed eh eT 
gee ee 


4S WRITE CHECK HEADER AND DATA 


WRITE CHECK HEADER AND DATA CYLINDER 5 FORMAT 16 BITS PER WORD 
TRACK 2, SECTOR 4, 4, KEYS 0, NUMBER OF WORDS 266 

10 WORDS OF e394 (6 BITS FOR CYL, S FOR TRACK, S FOR SECTOR) 
0 WORDS OF 177777 

0 WORD 

0 WORDS OF oseses 

O WORDS OF 1 

& WORDS OF Maa ROTATING ZERO (EG 177776,17777S) 

& WORDS OF LEFT ROTATING ONE (EG 1,2,4,10) 

174 WORDS OF 377 

4 WORDS OF HEADER 

2 WORDS OF 12345 


ft fe es pt pe pe 


FIRST THE ABOVE DATA IS WRITTEN BY A WRITE HEADER AND 
DATA COMMAND 


CHECK_FOR NO ERRORS 

THEN THE ABOVE DATA IS READ BY A READ HEADER AND DATA 
CHECK FOR NO ERRORS 

THEN THE ABOVE WRITE CHECK HEADER AND DATA IS GIVEN 


ee ne ee eee 


rer’ 





aoy #STACK, SP RESET STACK 
MOV #45, J8TSTNM ‘SAVE TEST NUMBER 


JSR PC, 2¥CLDISK SET RI-RHCS1, Re-RHCS2 
:R3-RHDS1, R4-RHERL 

; GIVE Rul INITIALIZE 
T_NUMBE 


; SET 
JSR PC, J&CHECKT : CHECK RDY , MOL, DPR, ORY SS = se 


SEND THAT. NO statu WecPine Sealy = 1 
TYPE , CPHALT * CANNOT CONT IRUE T Mas 
?THE FIRST SET OF BITS DON’ y =] 
HALT : STOP 


;#GET HEADS TO CYLINDER S 


JSR RO, d#SEEKCY ;SEEK FOR 
5 CYLINDER 5 


MOV ORPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 
:T0 ate IF to hort. IS PRESENT 
OR TQ ’ IF ty IS NOT PRESENT 


M AV 
CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


MOV GUSEECOM,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO!TE, (SP) :GET READY TO SET ‘GO’ AND 








a*® 





a a 
eRIIN.P LI 


03450 


024754 
8e7s 034770 
C3477e 
034774 


S3477E 


—_— 


DIRII“A, RECY S 6 FL 
Ta WArtE 3 


026°" 


012198 
01130S 


OwaIoe 
Quluw £& 
£ UC ue-- 
wooturu 


C 


4 
cocel2 
os2ces 


004037 


145414 


041365 


Lae | 
£ 
_— 
fu 
o-- 
tJ 


041236 


041236 


O41236 


N41 226 


=—ww 





INST. CONT. TSi-PT 
HECK HERDER AND bata - 


MOV ($°)+, MRHCS1 


JSR PC, aeCLOISk 


MACYL2 27(655) 


SO-NAR-76 22:59 PAGE 186 


a 


; NM 
IN RHCSI FOR SEEK 
shits INTERRUPT ENABLED 
‘SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHODSi DURING ABOVE OFERATIS? 


;WAIT FOR ORY BIT TO SET 
sWATT FOR Os) REGISTER 

;WAIT FOR ORY GIT IN RHOS! REGISTER 
ALLOW 70 70000 Meee ot ONDS 
:69650 BNO 70350 HTERO SECO 


:SET RI-RHCS1, R2-RHCS2 
?R3-RHDS!, RY-RHERI 

: GIVE RHI INITIALIZE 
; SETUP UNIT NUMBER 


;*#FILL WRITE FROM BUFFER WITH. HEADER 


JSR RO, 38F LHEAD 
‘the 


1900 os 
<7#400> 94 
0 

0 


; SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
:RUMGER OF “TORO SAVED 


;FIRST 
a " DATA WORD 


- SECON 
THIRD DATA WORD 
S FOURTH DATA WAORD 


:#10 WORDS OF GF THE FOLLOWING DATA 
3# 12944, i7777,0,525e2S, 125252 


JSR RO, JBCLAREA 
WREROM+<422> 


io. 
(5#2000> 9 <7a40> 14 


JSR RO, J8CLAREA 
HRFROM 14. . #2) 


a | 


JSR RO, JeCLAREA 
—— 24: 42> 


0 


JSR RO, J8CLAREA 
WRFROM+< 34. #2> 


id. 
SeSes 
JSR RO, J8CLAREA 


i rt ee ne ee ee ere: eee 


CLEAR 10. WORDS, FROM WRFROM+<4#2> 
ais’ TARTING FROM WRF ROMS 482» 
710. WOR 


3FILL WITH «S#2000s 2« 7#4C> 


:CLEAR 10. HORS FROM WREROM+< 14. 42> 
RTING FROM WREROM*< 14. a2) 


10. WOR ig 
SPILL WITH -1 
CLEAR 10. WORDS, FROM WREROM+< 24, #2> 


SEAR Oe TARTING FROM LIRFROMs 34. 235 
:10. words . 


sCLEAR 10. WORDS, FROM WRFROM+< 34. #2> 
10. wt ING FROM LRFROM#+< 34. 22° 
SPILL athe $2525 


;CLEAR 10. WORDS, FROM WRFROM+< 44, 22> 


"4 





SES Ce4é 


WHOIS 
0-- (t= 6-9 -- 9 
i | 
Oo 


joaoag 
wr 


ty tte tet fer rr 
(0.00.0. 
0 b= b+ 0+ 8-0 = 0-2 bo bs 
L000 NCP U1 2 Grue-- 


aooao 
Wada) 
wun 
warn 


Moor 


=A, RPOHS $ FUNC 
T4 R 


rc 
TE 


N 


699029 
OO3E44 


08008: 


C4l23€ 


tu 


D412 


- 


O41E36 


C4i236 





MACY11 27(655) 30-NAR-76 22:59 PAGE 187 : * GES C247 


NES GENER BND Da A 


Marat 42 as “STARTING FROM WRFROM+<44. 42) 
125252 ‘ATLL WITH 125252 


;#FILL LEFT ROTATING ZERCS FROM WRFROM+<S4. 42> 


MOV R1,-(SP) ::PUSH Rl ON STACK 
MOV #177776. RO Gara 

MOV Ka NT 

Hoy SuBFAOR+<S4. #2), Ay; ;WHERE DATA 30ES 
MOV RO, (RI}+ :STORE DATA 

ROL RO GET ZERO ONE BIT LEFT 
DEC RS UNT | 

3NE 13 BRANCH IF 16 NOT DONE 
s#FILL LEFT ROTATING ONE INTO WRFROM+<65. #2> 
CLe 

MOV 81,R0 

MOV R45; RL} 

ASL RO 

cc 2 fad . 

MOV (SP)+,R1 ::POP STACK INTO Ri 


;*#FILL REST OF DATA 


ISR RO, JBCLAREA :CLEAR 174. WORDS, FROM WREROM+<S6.#2> 
URE Rom. #2) a STARTING FROM WRFROM+: 95. 42> 
Ve bet WITH 377 
ISR RO, JSF LHEAD SAVE HEADER DATA IN WREROM+< 250. #2> 
HRFROM*< 265. #2) LOCATION WHERE SAVED 
: NUMBER iF WORDS SAVED 
1oco IS :FIRST DATA WORD 
78400) $5 sSECOND DATA WORD 
9 : THIRD DATA WORD 
5 FOURTH “bara WORD 
Tsp RO, JSCLAREA ;CLEAR 2 WORDS, FROM WRFROM+< 264, «2 
WRFROM+< 254. #2> ales sSTARTING FROM WREROM+< 264. 82> 
(S#2009> 8 7adD> #5 ’ sFILL WITH <S#2009>!.7e¢oees 


;#READ INTO BUFFER WILL BE CLEARED 


tcp RO, 2eCLAREA : eEEAR 266. WORDS, FROM REINTO 
REINTO :5 BRT ING FROM RETNTO 

2cé. :266. WORDS 

177490 ‘FILL WITH 1774C0 


ee nn 





| 





INDEC-11-DIRIZ=- 
DIRIIA.PLL 


035159 
C38iS2 


C3565 


035179 
035174 
038200 


025202 





THs 


094037 
CO090S 


cce470 


990090 
G1000C 


coss44 


004927 
02272 
eo4sie 


O00Ce2 


004737 
204400 


aaesan 


er tat eer eee ew to 


ise 3777 


wew 


033746 
052716 


012677 


A, RPOY-S 6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-NAR-7& 22:59 PAGE 188 
WRITE SHECK HEADER AND pata 


i es 


;*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 


JSR RO. aRUN ;SETUP TO RUN FOR DATA COMMAND 
OER S 
“ SECTOR 4 
~262.-4 SWORD COUNT {DATA) = 262. + 
_ FH HEADER WORDS 
WRFROM “BUS ADDRESS 
:STARTING ADDRESS OF DATA 
;BUFFER = WRF 
Q :00 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 
:00 NOT INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 
ARIFOR GET READY TO 00 A WRIFOR 


WRITE ubseer” AND DATA WITH &2 IN RHCS1 


;#NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND CATA 


JSR RO, 2aSAVER ; SAVE REGISTERS 
*RHWc IS THE FIRST REGISTER SAVED 
Sav ERE :STARTING ADDRESS OF WHER 
{THE REGISTERS ARE SAVED 
1g. NUMBER OF REGISTERS 
ISAVED = 18. 
ISR PC, DaCHECKT CHECK DVA, ROY Mot DPR.DRY. Vv =! 
AN THAT NO StaTUS BITS ARE STUck = 
TYPE | CPHALT : CANNOT CONT TRUE SesTING if RNY -OF 
:THE FIRST SET OF BITS OCN'T 
HALT STOP 


MOY BaRPYVEC, SRPVEC :SET RPON VECTOR ADDRESS 
TO *TINEL" IF P-CLOCK IS PRESENT 
08,7 g,"TImee* IF B-CLOCK 15 NOT PRESE 
‘CURRENT CYLINDER ACORESS 
;AND LOOK AHEAD REGISTERS 


MOV TAWRIFOR, -( SP? sET READY 10 MOVE COMMAND 
BIS aGorrTe, (SP) :GET READY TO, SET "GO" AND 
Z ENABLE INTERR 


MCV (SP)+, aRHCS] TH 
:62 IN RHCS1 FOR WRITE HEADER AND DATA 
WITH INTERRUPT ENABLED 
WAT ;WAIT FOR RDY SIT TO SET 
RHCS2 WAIT FOR RHCS1 REGISTER 












eee oe eee © Ste es ee seen 








04 
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OPRIIA.PLL TH WRITE CHECK HEADER AND DATA 
8988 035239 990200 RLY ;WAIT FOR ROY BIT IN RHCS1 REGISTER 
8985 036232 O01732 986. ‘ALLOW 9860 MICRO SECONDS 
9950 935234 01502 334. ROY MUST SE BE WEEN 
$33) 1520 AND 18200 mene SECONDS 
3993 “¥NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
8934 935235 04037 041270 5sR RO, J#FILLRE *MOV_O INTO SAVED RHWC 
$995 035242 02272 sane ; SAVED REGISTER TO CHANGE 
8995 035244 o0cd0d C e 
8997 935246 904937 o4127 JSR RO, JaFILLRE 'MOV WRFROM+<266.#2) INTO SAVED SHBA 
8998 935252 002274 RH :SAVED REGISTER TO CHANGE 
8999 935254 303514 WREROM+ «266. #2> 
$9290 035258 994037 o4i270 ISR RO, J¥FILLRE MOV 3406 INTO SAVED RHOST 
999: 635262 002304 RHOST : SAVED REGISTER TO CHANGE 
3008 535264 oossds 3406 : DAT 
3005 ;*NOW COMPARE REGISTERS | BEFORE WRITE HEADER AND DATA 
x, !#WITH REGISTERS AFTER COMMAND 
3007 
9908 O3S5266 904037 o42354 ISR RO, O8COMRES : COMPARE SAVED REGISTERS WITH 
tala) : PRESENT VAL UE 
99:0 a3s272 o04b!2 SAVERE : $000 DATA SAVED IN 'SAVERE’ 
$911 935574 902354 We :TEST DATA STARTING FROM ‘RHWC’ 
Qoi2 935e7— g00cS2 18. : 18. REGISTERS | To Es COMPARED 
3913 535300 035354 33 ‘AF TUR N 10 3% 0 
233 935302 925310 45 !RETURN TO 4§ ON fe ROP ROR 
S016 9353204 194027 33: ERROR 27 :WRITE HEADER AND DATA 
312 635306 §9c207 RTS BC s AUSED IMPROPER REGISTER 
we 
13 : 6000 DATA GIVES WHAT SHOULD 
9021 SRECEIVED DATA GIVES WHAT 
see TWAS THERE AFTER COMMANT 
ae :#HOW FILL COMMAND FOR READ 
9526 935210 43: 
3937 
$028 035212 204737 041366 ISR PC, ISCLDISK :SET RI-RHCS1, R2-RHCS2 
$925 :R3-RHDS!, RY-RHE 
3930 :GIVE RH-11 INITIALIZE 
S031 :SETUP UNIT NUMBER 
9033 9353214 cO4037 043240 ISR RO, J8RUN :SETUP TO RUN FOR DATA COMMAND 
9934 925320 900095 5 CYLINDER 5 
9535 035332 084 “BYTE 4 :SECTO 
$036 936333 607 "BYTE ? TRACK 7 
9037 0352324 17736é -262.-4 “WORD COUNT (DATA) = 262. + 
$738 '4 HEADER WORDS 
$39 035226 002534 REINTO :BUS ADDRESS ; 
3449 “STARTING ADDRESS OF DA 
$843 ?BUFFER = REINTO 

























MAINDES=$11-DIRII“A, RPOY 5 & FUNCT. CONT. TST-PT 1 


MACYLL 271655) 
DZAIIA.PLL Tag WRITE CHECK HEADER AND DATA 


3O0-NAR-76 22:59 PACE 190 


9042 035330 209000 9 ;00 NOT yg BUS ADDRESS — 
9043 035332 314000 ECI!FMT22 agit Pee io RD FORM 

5044 ; INHIB 1 FCC COR RESTS 

9045 .. $00. Nee ope tp. HEAD R COMPARE 

S046 035234 Cb24So REFOR REF 

3047 ‘READ REEADER AND DATA WITH 72 IN RHCS! 


3059 ;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 






3051 

9952 935336 C4037 S41S34 a RO, J8SAVER ave REGISTERS 

S3S3 035342 J02e. RHWC C_IS THE FIRST ait SAVED 
3054 035344 904612 SAVERE STARTING ADDRESS OF WHERE 

9055 ; THE REGISTERS ARE SAVED 





9056 O3S3468 O00022 3. ;NUMBER OF REGISTERS 
$257 SAVED = 18. 















| $858 035350 OON737 O4144E ISR C,QeCHECKT  § ;CHECK DVA,ROY,MOL,DPR.ORY, WV = 1 
| 3050 . ee. get: ae sAND THAT No StaTUS SITs ane atesk = 
S061 035254 104400 d66402 TYPE =, CPHALT : CANNOT LONTINUE TESTING . 
3562 Te FIRST SE1 OF BITS DON'T = 1 eo ch 
soz c3s36C oocooC HALT : STOP nh 
SOE5 035262 O1T7T OMENS LHHSTE MOV -@WRPYVEC, SRPVEC :SET RPOW VECTOR ADDRESS 
3566 19 -TIMEL' IF PoCLOCK iS PRESENT 
3067 SOR TO TIME2’ IF P-CLOCK IS NOT PRESENT 
$058 ;*TIME’ WILL ONLY SAVE 
9069 CURRENT CYLINDER ADDRESS 
2073 ZAND LOOK AHEAD REGISTERS 
is 
$673 935370 013745 202450 Noy GHREFOR, =<SF) GET READY TO MOVE COMMAND 
| Ba 36374 O52716 900181 BIS s-wGO!TE, {SP) ‘Beate Inert GO’ AND 
9075 O3SH00 O12677 144674 MoV (SP)+,aRHCS1 = ;G0_WIT 
9577 72 IN RHCS1_FOR READ DATA 
078 ;WiTH INTERRUPT ENABLED 
9080 
| 3081 935404 104412 WAT HAIT FOR ROY BIT 10 SET 
| 9082 63540¢ 492300 RHCS! :WAIT FOR RHCS1 REGISTER 
| $083 935419 300200 ROY WAIT FOR RDY BI IN RHCS1 REGISTER 
3084 O354i2 091732 386 sALLOM 3960 MICRO SECONDS 
i fe i ov 
| 9067 
| ee ;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
; $095 025436 904027 041270 JSR. - RO,SHFILLRE ==; MOV_O- INTO SAVED RHWC 
+ 909, 035422 00207e RHIC ; SAVED REGISTER TO CHANGE 
3592 035424 OCO000G 0 
9093 O35426 004037 041270 JSR «RO, DWF ILLRE ‘HOV PREINTO+:266.42> INTO SAVED RHBA 
$094 935432 902274 RHBA : SAVED REGISTER TO CHANGE 


$095. CsS434 O04560 REINTO+< 266. #2” 


me ee eee ee + ee eee 


Ira Fearone 


0+ = 0- + <b 9 = §—< b= b 2 + 0-2 b= 2 b- 0 9 —2 § 0 & 2 fh 0 B—0 b ~0 9-2 h- 2 P02 ho h-0 B- 0 fo ho Bo ho 


ow ~e b+ 0-6 bb 9 C90 909 
CO. DO IM ULM - OW ONO ULC OTue-OwWW 


Ue OWOONMUILG) 


=6+6 <6 *6-=< 9-6 6-< b- + 6 -< b+ 6 6 


* 


000000 0 000 0.0 0000 00 000 00000 D0 OO wo 
2 EE SWIWIWGWWGIG) 


£100 NICH CT E. t 





MRINDEC$11-DORIT- 
DCRIIA.PiL T 


s4c4 
uae 


Br 


035470 


0354790 
025474 


635554 


935506 


G35519 


035512 
038512 
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: SES C2S1 
WRITE CHECK HEADER AND DATA 


04127. JSR RO, J8F ILLRE ;MOV 3406 INTO SAVED RHOST 
RHDST ;SAVED REGISTER TO CHANGE 
3406 ;DATA 


:2COMPARE REGISTERS BEFORE READ HEADER AND DATA 
:#WITH REGISTERS AFTER COMMAND 


42354 -- JSR RO, BCOMREG «= s COMPARE SAVED REGISTERS WITH 
! :PRESENT VALU 
SAVERE !G00D DATA SAVED IN 'SAVERE’ 
WE :TEST DATA STARTING FROM “RHWC’ 
19. :1§. REGISTERS TO BE COMPARED 
5§ :RETURN TO S$ ON ERROR 
5$ ZRETURN TO &$ ON NO ERROR 
cs: ERROR 31 sREAD HEADER AND DATA CAUSED 
RTS. BC IMPROPER REGISTER CHANGE 


;G00D DATA GIVES WHAT SHOULD ne 
;BE THERE RECEIVED DATA GIVES WHAT WAS 
sRECEIVED DATA GIVES WHAT WAS 

; THERE AFTER COMMAND 


;#NOW_REAC INTO SUFFER WILL BE CHECKED TO SEE 
;*THAT READ WAS GOOD 


.* €Bs 
c424o4 JSR ——- RO, aBCOMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM :G00D DATA STARTS FROM WRFROM 
REINT :TEST DATA STARTS FROM REINTO 
' 1266. WORDS TO BE ¢ 
7$ ;PETURN TO 7$ ON ERROR 
10$ RETURN TO 198 ON NO ERROR 
73: ERROR 32 ;WRITE HEADER AND DATA 
RTS =P FOLLOWED BY A READ HEADER 
AND DATA GAVE A READ ERROR 
ERROR MAY BE IN READ OR WRITE 
;*A WRITE, READ HAS BEEN SUCCESSFULLY COMPLETED 
:#NOW A_WRITE CHECK HEADER AND DATA WILL BE GIVEN 
;#FILL THE WRITE CHECK HEADER AND DATA 
198: 


004737 O4136& JSR PC, aaCLOISk ;SET R1-RHCS1, R2-RHCS2 


:GIVE 
;SETUP UNIT NUMBER 


cme ee ee a eee 





MAINDEC-1I-DZRII-A, RPOY-S’6 FUNST. CONT. TST-PT MACYL1 27(65S) 30-NAR-7& 22:59 PAGE 192 SEa Cese 
DPRITA.P1l THs WRI TE CHECK HEADER AND pata 
35516 004037 243240 JSR RO, J#RUN sSETUP TO RUN FOR SATA CONMAND 

Raced elute 5 Sr YNOER S 

935524 535 .SYTE 4 : 

935525 657 ‘BYTE =7_ | . : R, 

635526 177366 -262.-4 : WORD COUNT (DATA) = 262. + 

7 !4 HEADER WORDS 
035530 902470 WREROM : BU DBRESS 
i STARTING ADDRESS OF DATA 
935532 00990 0 " :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
835534 214990 CIIFMTz2 -16 BIT : PER ORD FORM 


: INHIBIT’ £B CORREC TION 
:DO NOT INHIBIT HEADER COMPARE 
935536 02440 WRCHOT GET READY TO DO A 
SWRITE CHECK HEADER AND DATA wae S2 IN RCS! 


;*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 


UN Gu (9.00 IMU Gotue (9.0 IO U1 Gu 


*>-+ b= b- + b+ b-2 b= b-2 b- 0 B= & 2 = b= b-0 b-2 2 b= 0 b= 2 b= § 2 bb -0 2 & 2 bo § = Bae Fo & = B= 2 Po po ge 


0.0.0 WR 2190 BOR ORRESReS | a-] IIIT I ITN OM MOT i ab Meld Lg) ld dt fod 


a ee + ee eee 


000.000.0000 00.0000... OOMODOWM OWWODDODODODOWODMOWWOWWOW :; 


RHCS1 ;WAIT FOR RHCS 


035549 sTes: 
025545 904027 941534 JSR RO, BSAVER : SAVE REGISTERS 
O35544 O02272 RHC HWC_IS THE FIRST REGISTER SavED 
336546 o04s:2 SAVERE Sak ING ADDRESS OF WHERE 
THE REGISTERS ARE SAVED 
936550 coo022 18. :NUMBER OF REGISTERS 
:SAVED = 18. 
8 ogssse ooN737 O4l446 ISR PC, J&CHECKT :CHECK DVA,RDY,MOL,DPR,DRY, VV = 1 
3 AND THAT NO Status BIts Ake agus =] 
O O@55S6 io4seo obE4Oe TYPE _,CPHALT :CANNOT CONTINUE TESTING IF A Y OF 
1 ‘THE FIRST SET OF BITS DON’T 
@ o2sss2 o00000 HALT STOP 
4 O3SSE4 513777 CO4S95 244474 MOV DeRPYVEC, DRPVEC SET, RPO4 VECTOR ADDRESS 
19 :T0 'TIME1' IF P-CLOCK IS PRESENT 
1g :0R TO TIME? IF P-CLOCK IS NOT PRESENT 
ig? TIME’ WILL ONLY SAVE _ 
| 9188 CURRENT CYLINDER ADDRESS 
| 189 SAND LOOK AHEAD REGISTERS 
| §191 
_ $192 O35572 913746 oo2440 MOY 3aLRCHOT -(SP) ;GET READY 19 MOVE COMMAND 
| $183 35576 O52716 Odio! BIS #GONTE, (SP) :GET READY TO SET ‘GO’ AND 
| @f sENABLE INTERRUPT 
} §195 O35652 O12677 144472 MOV (SP3+, JRHCS1 300 
| 9196 S2 IN’ RHCS1 FOR WRITE CHECK HEADER AND DATA 
| 9197 itty INTERRUPT ENABLE 
| §198 O2569E o1i100 MOV IRi,RO AVE RHCS1 DURING ABOVE OPERATION 
2199 935610 011305 MCV JR3.RS OVE RHDS1 DURING ABOVE OPERATION 
} ec 
i $251 . 
| 9202 o2S612 104412 WAT :WAIT FOR RDY BIT TO SET 
| 9263 .0356!4 02300 1 REGISTER 








ee ett te RPCW 5-6 oF 


DIRIIA 
9204 035516 
205 v3o620 
0& 035622 


furotore 


8 POiOfororurorurororurururururot 


3S624 
3563C 
035634 
035640 


035642 
O3S644 
035650 
035654 


"1 TUTU bb b- b-- bb + ee 
‘CO .00 ITU CUIUY-O 


9243 035732 


9249 035734 


$251 035740 


9255 Bse7st 
9257 035752 


THs 

900200 
001732 
901502 


voOIND 
fre 
& 
™“ 


- 
a 


Oo io 
tet ot =} tetas atetd 

o 

te ] 

w 


—-OM 


4 
OO34CE 
004037 
0046 12 


035756 
104940 


WRITE 


00244C 
004101 
001124 


O01ie6 
004500 


091126 
004609 


041270 


041270 


041279 


042354 

























UNCT. CONT. TST-PT 1 MACY11 27(655) 30-NAR-7& 22:59 PAGE 193 
CHECK HEADER AND pata 


RLY ;WAIT FOR ROY BIT IN RHCS1 REGISTER 
986 ALLOW 9869 MICRO SECONDS 
834 ;RDY MUST 


SET BETWEEN 
:1520 AND 18200 MICRO SECONDS 


;®COMPQRE CONTENTS OF RHCS1 AND RHDS1 ALREADY _—— IN 
;*RO AND RS IMMEDIATELY AFTER GO 


MOV DAWRCHDT,-(SP) ;SAYE COMMAND 
Bis #IE!DVA!GO (SP) S INCLUDE IE'DVA!'GO 


MOV (SP), aa$cd :SAVE FOR PRINTOUT 
CMP (SP)4+, RO :DURING ABOVE OPERATION ONLY IE!DVA!GO 
:AND COMMAND SHOULD 3£ SET 
BEQ 64S ; BRANCH IF GOOD 
MOV RO, J#$8DDAT *BAD DATA 
MOV Rl @#REGADR ‘FAILING REGISTER RHCS1 
ERROR el ; DURING ABOVE OPERATION ONLY 
“COMMAND AND IE!'DVA'GO SHOULD BE SET 
S43: MOV #MOL! DPR! VV, -(SP3 - SAVE BITS SET DURING OPERATION IN RHDS: 
MOV (SP), a8SGDDAT ;SAVE FOR PRINT 
CMP 5P)4,R5 :DURING ABOVE OPERATION ONLY MOL!DPR! VV 
:SHOULD BE SET 
BEQ b6S : BRANCH IF GOOD 
MOV RS, 2HSBDDAT DATA 
MOV R32; JBREGADR FAILING REGISTER RHDS! 
ERROR 63 ‘DURING ABOVE OPERATION ONLY 


:MOL!DPR!VV SHOULD BE SET 


eé$: 
:¥CHANGSE SAVED REGISTERS TO EXPECTED VALUES 
ISR RO, J#F ILLRE :MOV_O INTO SAVED RHWC 
RHWC +38 VED REGISTER TO CHANGE 
ISR RO, J8F ILLRE “MOV WRFROM+<266.#2> INTO SAVED RHBA 
RH :SAVED REGISTER TO CHANGE 
UREROM* < 266 #2) 
ISR RO, JeF ILLRE Vv 3408 INTO SAVED RHDST 
RHDS SEVED REGISTER TO CHANGE 
3406 : DAT 
s#COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
4WITH REGISTERS AFTER COMMAND 
JSR RO, JBCOMREG ;COMPARE SAVED REGISTERS WITH 
: NT VALUE 
SAVERE :GOOD DATA SAVED IN "SAVERE’ 
Wc iT ST aoaie STARTING FROM 'RHWC’ 
18. REGIST ERS T0 BE COMPARED 
85 RETURN TO 8$ ON ERROR 
95 ‘RETURN TO 9$ ON NO ERROR 
ch} ERROR 40 ;WRITE CHECK CAUSED 





—- 


ee ae ee a ee ee ee ee ee SS Se eee ee Oe Oe r+ -- 0.00 aw"w1-;G°CG-loC__ ieee tein 


MAINDEC-11-DZRII-A, RPOW’S’6 FLINT. CONT. TST-PT 1 MACYLL @7(555) 30-NAR-75 22:59 PAGE 194 SEG 9254 
DZRIIA.P11 THs WRITE CHECK HEADER AND pata 

258 035754 200207 Ris Pc a IMPROPER REGISTER 

60 :G00D DATA GIVES WHAT 

9261 :SHOULD BE THERE 

9262 RECEIVED DATA GIVES WHAT 

9263 “WAS THERE AFTER COMMAND 

9364 

3¢65 oe 

S258 035756 Sf: 
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MACY11 27(655) 
TH WRITE CHECK HEADER AND bata 





MAINDEC-11-D2 
DZRITA.P11 

















9268 ara lille 
9269 eT T 46 WRITE CHECK DAT 

9279 1% THE DATA FOR THIS TEST fs WRITTEN ON DISK BY PREVIOUS TEST 
9571 te WRITE CHECK DATA CYLINDER S, FORMAT 16 BITS PER WORDS 
678 :# TRACK reyes SECTOR 4, KEYS 0, NUMBER OF WORDS 258 

$274 + % 10 WORDS OF Of 2344 (6 BITS FOR CYL, S FOR TRACK, 5 FOR SECTOR) 
3275 3% ty WORDS OF ‘'‘’ 777 

9275 ik 10 WORDS OF 

$277 1% 10 WORDS OF OS2S25 

8378 tk 10 WORD OF 125252 

9279 1% 16 WORDS OF LEFT ROTATING ZERO (EG177776, 177775) 

92 tx 16 WORDS OF LEFT ROTATING ONE (EG 1,2,4,10) 

$281 : % 174 WORDS OF 377 

9292 i 3 WORDS OF 12345 

3284 ;% 

9295 i FIRST THE ABOVE DATA IS FILLED INTO WRITE FROM BUFFER 
9286 $% THEN THE ABOVE WRITE CHECK DATA IS GIVEN 

9287 * ope 4" tc tapemeautnee <ttiaima cena ie Sen bie 
9288 035756 op0004 +4Tug: 

$289 035760 Ol2e70& 001000 ay aSTACK, SP sRESET STACK 

3230 035764 012727 OOCO4E co4so4 MOV —s- #46, aw TSTNM :SAVE TEST NUMBER 

9292 935772 004737 041366 JSR PC, a#CLDISK iSET. RI <RHCS1 R2-RHCS2 

9293 R3-RHDS1, R4Y-RHERI 

9294 : GIVE File INSTIAL IZE 

§295 ‘SETUP UNIT NUMBER 

9296 035776 004737 O41446 JSR PC, JHCHECKT : CHECK at ROY, MOL DPR, DRY, VV = 
9297 ‘AND THAT NO STATUS BITS ARE stuck = l 
9298 026002 104400 ob66402 TYPE ,CPHALT ; CANNOT CONT IRUE. TESTING IF ANY OF 
9299 THE FIRST SET OF BITS Bont T=1 
9300 036006 900009 HALT STOP 






9302 ;*GET HEADS TO CYLINDER S 









9305 036010 004037 041336 JSR RO,d#SEEKCY _ ;SEEK FOR 

ane 0360i4 900005 5 ;CYLINDER 5 

9308 036018 013777 OSO4696 144242 MOV QBRPYVEC,ARPVEC ; soeT, oo VECTOR ADDRESS 

9309 310 *TIMEL’ IF P-CLOCK IS PRESENT 

9310 ;OR TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
; WILL ONLY SAVE 






931 

9316 036024 013746 OCe24sSe MOV J#SEECOM, -(SP) Get READY TO MOVE COMMAND 
9317 036030 052716 000101 BIS #GOTTE, (SP) 19 i Q SET *GO* AND 
9318 HENPALE RRUPT 

9319 036034 012677 144240 MOV (SP)+,JRHCS! 






GO WITH 
;4 IN RHCS1 FOR SEEK 








DERITA. Pil TH 
932 
g 
$32 
9324 oO36040 104412 
9325 O36C4e 002322 
9326 O36944 90200 
9327 036 004704 

036050 004704 

a359 
$330 
$331 
9332 036052 204737 
9333 
9334 
$335 
9336 
9337 
9338 
9339 036056 004037 
9340 036062 092470 
9341 O36064 O00012 
at 036066 012344 
$344 036070 004027 
9345 036074 002514 
9346 936076 000012 

| 3347 036100 177777 
9349 036102 004037 
9350 036106 002540 
9351 036110 O0001e 
a35¢ 036112 900000 
$354 036114 004037 
9355 036120 002564 
9356 O36l22 000012 
$357 O3612e4 OS2525 
8358 
9359 036126 
ae Gael ad Boeeid 
9362 036136 125252 
9363 
$364 
9365 
9366 
9367 936140 O10146 
ear DSeiue | ptS70s 
3350 pap tes 12701 
9371 036156 61 
9372 036160 010021 
9373 O36162 006100 
$374 636164 005305 


WRITE CHECK DATA 


041366 
alls. 


041236 


041236 


041236 


041236 


041236 


177776 
000920 
002634 


ors wns FUNCT. CONT. TST-PT 1 


1$: 
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MACY11 27(655) 


;WITH INTERRUPT ENABLED 


WAT swt FOR DRY BIT TO SET 
RHDS1 ;WAIT FOR RHDS1 REGISTER 
DRY ;WAIT FOR DRY BIT IN RHOS1 REGISTER 


ALLOW 25000 4 os 


2500. :DRY MUST SET BETWE 
" 00 AND SOOO0 MICRO SECONDS 
JSR PC, JHCLDISK :35T Ri =RHCS1, 1phecRHCs2 
Give Pelt INITIALIZE 
ete UNIT NUMBER 


;*¥10 WORDS OF EACH wn, 17777,0,S52SeS, leSeS2 


JSR RO, J#CLAREA ;CLEAR 10. WORDS FROM WRFROM 
WRF ROM START ING_FROM WRFRO 

<5*2000> !<7*40> 24 i sFILL WITH <S*2000>!<7*40>!4 
ISR RO, J#CLAREA ; CLEAR 10. HORDS FROM WRFROM+< 10. *2> 
URFROM+« 10. * #2) ey RTING FROM WRFROM+< 10. ¥2> 

=] FILL WITH -1 


JSR RO, d#CLAREA 
— «20! ¥2) 


10. W 
0 SPILL WITH O 


JSR RO, J8CLAREA : CLEAR 10. HORDS FROM WRFROM+<30. *2> 
MRFROM+ «30. #2) TING FROM WRFROM+<30. ¥2> 


;10. WOR 
$2525 FILL WITH S2S25 


JSR RO, J#CLAREA ; CLEAR 10. HORDS FROM WRFROM+<40. ¥2> 
WRFROM+<40: ¥2> ARTING FROM WRFROM+<40. ¥2> 


10. id. W 
125252 PTL WITH leSeS2 


: CLEAR e. ans FROM WREROM+< 20. #2> 
ARTING FROM WRFROM+<20.¥2> 


;*FILL LEFT ROTATING ZEROS FROM WRFROM+<SO. #2> 


MOV ;;PUSH R1 ON STACK 
MOV RIe7P36. RO ‘DATA 

MOV #16.,R5° * COU INT 

NOV SuRFROM+<SO. *2>,R1 ;WHERE DATA GOES 

MOY RO, (R1)+ ;STORE DATA 

ROL RO sQET ZERO ONE BIT LEFT . 
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fa 


93 


9394 
9395 
9396 
9397 
$398 
9399 
3400 
ane 
9403 
9404 
9405 
S406 
9407 
9408 
9403 


Seepeeeeee22222 
WT NOU £ WMO 


PUR Loweo 


see 
on 


T4§ WRITE CHECK DATA 


091274 


O4 1446 
066402 


BNE 1$ ;BRANCH IF 15 NOT DONE 
;*FILL LEFT ROTATING ONE INTO WRFROM+<6S. #2> 


#1,R0 

RO, (R1)+ 

3§ 

(SP)+,R1 ;;POP STACK INTO RI 


;*FILL REST OF DATA 


JSR RO, J#CLAREA ;CLEAR 174. WORDS, FROM WRFROM+<82. #2> 
Ui RON+<Be. #2) STARTING FROM WRFROM+<82. #2) 


3174. Ss 
iy" . ;FILL WITH 377 


TSR ag OMGLARER «CLEAR 2 ORDS, FROM WRFROM4< 256. x2» 
WRFROM+<256. #29 pe ARTING FROM WRFROM+<256. #2) 


€5*2000) «7440 #5 dy SFILL WITH <S#2000>!<7#40> #5 


;#FILL THE WRITE CHECK HEADER AND DATA 
JSR RO, d#RUN aye TO RUN FOR DATA COMMAND a | 
5 YLINDER S 
SECTOR 4 
; TRACK 7 
3 WORD COUNT = 256. 
ADDRESS 
: STARTING cos OF DATA 
:BUFFER = WRFROM 
;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
PER WORD FORMA 


316 BITS 
; INHIBIT’ ECC a ION 
:D0_NOT INHIBIT a COMPARE 


GET READY TO DC 
;WRITE CHECK DATA WITH SO it RHCS1 


4 
7 
~2S6. 
WRF ROM 


0 
ECI!FMT22 


WRCHEK 


-¥SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
SSR RO, JHSAVER ;SAVE REGISTERS 
RHIC *RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

*THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 

;SAVED = 18. 


JSR PC, @BCHECKT ;CHECK DVA, RDY, MOL, DPR 
3 AND THAT NO StaTUS B 

TYPE ,CPHALT CANNOT CO NVIRUE TEST 
:THE FIRST SET OF BIT 





MACY11 27(655) 


Qo 


FUNCT. “iol E TST-PT 1 
K DATA 


CO4E06 143760 DBRPYVEC , IRPVEC 


soonest -(SP) 
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,STOP 

;SET POY VE 

19 ate 1’ ip be 

Rh tte“ cow Pech OCK iS ROT PRESENT 
CURRENT CYLINDER RODRESS 

AND LOOK AHEAD REGISTERS 


;GET READY 10 MOVE COMMAND 

GET READY TO SET *GO’ AND 

“FENABLE i ATERRUPT 

*.50 IN RHCS1 FOR WRITE CHECK DATA 
iA H INTERRUPT ENABLED 

iS AVE RHCS1 DURING ABOVE OPERATION 
:SAVE RHDS1 DURING ABOVE OPERATION 


swt FOR ROY BIT TO SET 
T FOR RHCS1 REGISTER 
HALT FOR ROY BIT IN RHCS1 REGISTER 
ALLOW 9860 MICRO SECONDS 
iRDY MUST SET BETWEEN 
31520 AND 18200 MICRO SECONDS 


ate csi AND RHDS1 ALREADY SAVED IN 
Y AFTER GO 


sgassssessssresesreseresesssssess 3 


2 
= 


ath 


VE COMMAND 
; INCLUDE IE!DVA!GO 
a FOR PRINTOUT 


FAILING eearsien RHCS 
DURING reeve E+ OvR! 1h ot 
AND TE!DVAIG SHOULD 


D BE SET 
‘ of ave a! TS SET DURING OPERATION IN RHDS1 
" [Biking AGO OPERATION ONLY MOL!DPR! VV 





;BAD DAT 

FAILING REGISTER RHDS! 

; DURING ABOVE OPERATION al 
;MOL!DPR!VV SHOULD BE SET 





;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 





a* 





;MOV O INTO SAVED RHWC 





—_— 








BOS 
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oe WAITS *HECK BATA 
202272 RYWC ;SAVED REGISTER TO CHANGE 
800095 5 
00403" «041270 : Tsp RO, Jef ILLRE MOV WRFROM+<256.#2> INTO SAVED RHSA 
502374 RHBA ‘SAVED REGISTER TO CHANGE 
083970 HRE ROM: 256. #2) DATA 
B5402° 241272 RO, 2eF ILLRE : MOV supe INTO SAVED SKDST 
502394 SanST : SAVED REGISTER TO CHANGE 
023435 3405 : DAT 
s#COMPARE REGISTERS BEFORE WRITE CHECK HEADER GND DATA 
WITH REGISTER AFTER COMMAND 
g5s037 o423s4 JSR RO, JBCOMREG s COMPARE § SAVED REGISTERS WITH 
904612 SAVERE 6009 BATA SAVED IN 'SAVERE’ 
092354 wc :TEST DATA STARTING FROM '"RHWC’ 
pognze2 is 15. REGISTERS TO BE COMPARED 
B3S465 35 “RETURN TO 8S ON 
536472 :RETURN TO 9§ ON NO ERROR 
536: 134040 Q¢: ERROR 40 tWRITE CHECK CALS 

2503 O36u75 o80507 RTS pe iN ait MPROPER REGISTER 

$55 '5909 DATA GIVES WHAT 

9507 : SHOULD BE THERE 

soos sRECEIVED OATH GIVES P47 

ssi5 

S53: 226472 Ss: 


S555 :WAS THERE AFTER COMMAND 
| 





Pe ar ee ae ee etree ee eee 





ihinin 
fe 2.000 IU £ 


323 


i See 


Ec- 
AP 


-~-p-- 


036524 
636530 
036534 
$3656 


036552 


www 


S3es554 


1-DERII-A, ROY. 
! TH8 


2 won 
rs 

=) 

G 


© er-9O 


+ 
4 
wv) 
3 


905737 

051402 
00013? 
004737 
104400 
oooc0s 


30137 


004237 
005095 





6 | 
7 


5 
WRITE 


541266 


www 


oO4750 
03724S 
O41 S46 
D664532 


3G4732 
037240 


FUNCT. ioe TST-FT 1 
CHECK DATA 


ae 
ate 


ur: “Soe 00 see tor noe ube 0 ee Oe Oe Oe Oe ee oe oe Oe 


3C$: ;IF FLAG = 
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ifecy a? WATTE CHECK DATA ISING WIG 
EST 47 ITE CHECK DATA USING U NIBUS e. 
THIS TES : Rises” UNTBUS B IF CO NNEC TED TO 
a UNIBUS 8 IS NOT CONNECTED tH N THIS Tet Re fot PERE ORES 
DATA FGR THIS TEST IS WRITTEN ON DISK BY 
WRITE CHECK DATA CYLINDER S, FORMAT 16 BITS PER” Woese 
TRACK 7, SECTOR 4, KEYS 9, NUMBER CF WORDS 259 
CONSISTING OF . 
10 WORDS OF 12344 (6 BITS FOR CYL, 5 FOR TRACK, S FOR SECTOR: 
19 WOROS OF 177 


10 WO 

10 WORDS OF OS2Se5 

10 WORD OF 125252 

if WORDS OF LEFT ROTATING ZERO (EGIT? 
5AM WORDS OF LEFT ROTATING ONE ‘EG 1.2, 
2 





+ 
24, 


74 WORDS OF 377 
ons OF i2345 


FIRST THE ABOVE DATA IS FILL AP INTO cma FROM BUFFER 
THEN THE ABOVE WRITE CHECK DATA IS GIVEN 


ee a en ene 
oP 


MOY aSTACK, SP sRESET STACK 
OV #47, 08tSTNM : SAVE TEST NUMBER 
ISR PC, deCLDISK :SET RI-RHCSI afec “RHCS2 
fre :R3- RHDS! RHER! 
E RH- 11" INIT TAC IZE 
‘ee yE UNIT NUMBER 


;*CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH7C 


TST JaRH7O sTEST FOR RH7O CONTROLLER 
959 308 LAG THIS TEST IS SKIPPED 
IMP TSTso. OC; bump To NEX r TEST ence nn none wnnneenena} 
" DO ere TEST 
ISR PC, JeCHECKT CHECK oye A yo OPR. ORY. VV = 
“AND T TUS BITS ARE stub =} 
TYPE  ,CPHALT SANDY fy, weet TF ANY oF 
THE FIRST SET OF SITS DON'T = 1 
HALT - STOP 


31S UNIBUS _B THERE 
$ : UNTBUS B THERE SQ CONTINUE 
:NO UNISUS B, SO TO NEXT TEST 


;#GET HEADS TO CYLINDER S 


;SEEK FOR 


JSR RO, J@SEEKCY 
5 ;CYLINDER 5 








NDEC-11-DIRIT“A, RPCHS 6 FUNCT. CONT. TST-PT MACYL! 27(655) 30-NAR-76 22:59 PAGE 20! 
RITA.PL! ra ee a Fe SECK Bata USING UNTBUS 8 
9568 are 
559 O2SSE DISTT DoMEOe 143502 NOV DURPSVES,RPYEC SET SPOH VECTOR ADDRESS 
3579 TIME!’ IF P-CLOCK IS PRESENT 
3321 i: TO; "TINE®” IF B-CLOCK 15 HOT PRESENT 
rye rive’ iL ONLY SAVE 
3573 'CURRENT CYLINDER ACORESS 
aer8 SAND LOOK AHEAD REGISTERS 
s ‘s 
7 
$77 D36584 OugT4s 02452 Noy GNSEECOM, = (SP) :GET READY TO MOVE, conmanD 
57s 8365%C OS2716 920101 BIS SP) :GET READY TO SET 'GO" A 
3579 SENABL E INTERRUPT 
9580 036574 212677 143500 MOV ati Sa G0 WITH 
358: . :4 IN RHCSI FOR SEEK 
3532 WITH INTERRUPT ENABLED 
3583 
$584 
$585 036600 105412 WAT WAIT FOR ORY BIT TO SET 
$598 035602 002322 SH0S1 WAIT FOR RHOS1 REGIS 
9687 936694 950290 ORY WAIT FOR DRY BIT IN RHOS! RESISTES 
[SI 506 504704 2500 ALLOW 22000 MICRO SECOND 
3683 036615 O047D4 2500. ;DRY MUST SE N 
3635 :00 AND ScOdo MICRO SECON 
| 3585 o3ee:2 o0wra7 o41368 J PC,SHCLDISK 3 SET_RIRWCS, RB-RHCS2 
$354 RO-RNDS1, R4-RHERL 
3555 Reels INTTIALIZE 
2% Be ip UNIT NUMBER 
| #38 :#i0 WORDS OF EACH 12344,17777,0,52525, 125252 
| $600 O3651— 004937 O41226 JSR - RO, JCLAREA CLEAR 19. WORDS, FROM WRFRCN 
| $691 S36622 902472 WRFROM . STARTING FROM WRER 
| 9802 93654 30001¢ 19. 510. WORDS 
| $23 Ossees oles CBR2000) 1 7#HD> 14 SFILL WITH <S#2000>!: 7a. !4 
| 9605 036530 994037 041236 JSR RD, DeCLAREA CLEAR 10. WORDS, FROM WRFROM*: 19.82 
| 9655 O36634 902514 WRFROM*< 10. #2) - STARTING FROM ARF ROMS 5. #2 
| 9697 O36636 399512 15. 310. words 
| Bog Csbe4o 177777 -1 SFILL WAT 1 
| «$10 O36642 904037 o4123¢ ISR RO, gaCLAREA ;CLEAR 10. WORDS, FROM WRFROM+<20. #2) 
/ $611 O266¥E 002540 WRFROM*< 25! #2) SSTARTING FROM WRFROM+<20. #2> 
. 9612 936650 cOdd12 1c. 310. WOR 
313 O26652 S0G000 6 :FILL WITH O 
Py 
S615 036654 OO4037 o41236 JSR ae Rr DRCLAREA CLEAR 10. WORDS, FROM HREROM* 30.92) 
SE1E 036650 SO025e4 HBF ROMs < 30. #2) “STARTING FROM WRFROM+< 30. #2) 
$617 O::262 oc001e2 10. :10. WO 
318 Cat0b4 Osese5 2525 :FILL WITH $2525 
E20 O365EE 004037 941226 JSR eg AGP OCLARER CLEAR 10, WORDS, FROM HREROMS. 49. +3) 
S€zi 536672 O02610 WRFROM+ “40! + SSTARTINS FROM WAFROM*< 40. 82° 





036730 
036732 


O36746 
036742 
36744 


025746 


637004 


037056 
037019 


9375 7 - 


RPO S 


o--(Je-< 0-+9-~5-- 


g 
C 
a 
5 
0 
J 
9 
8) 


tae 


2 
3 


warts 


Irrres 


apbee 


C0234 


000981 


wwe 


C41296 


041236 


O4334C 


FUNCT. IST-PT 1 
BHECK BATA “USING UNTBUS 8 





iy. 
leS2Se 
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310. WORDS 
sFILL WITH i2SeSe 


:*FILL LEFT ROTATING ZEROS FROM WRFROM+<SC. ¢2> 


Ri,-(SP) 
MOV 1 ee "RO 


MOV RO, (R1)+ 
RO 
DEC RS 


BNE i$ 


-PUSH R1 ON STACK 
iba? A 


as COUNT 
MOV suRFRON*<50. #2>, Ai: WHERE DATA GOES 


:STORE DATA 
:GET ZERO ONE BIT LEFT 


COUN 
t SRANCH IF 16 NOT DONE 


s¥FILL LEFT ROTATING ONE INTO WRFROM+<65. #2> 


1,86 
MOV RO, (R1L)+ 
RO 
eg 
MOV (SP)+,R1 
peFILL REST OF DATA 
RO, acl AREA 
bir Rote 82. £2 
174 


ae 
fe 


ISR RO DacLAREA 
WRFEROM+< 256. #2 


«5#2009) $< 7840) !S 


;;POP STACK INTC Ri 


;CLEAR 174. WORDS, FROM WREROM+:S2.#2> 

*STARTING FROM WRFROM+:S2.#2> 
2174. WORDS 
sFILL WITH av? 


:CLEAR 2 WORDS, FROM WRFEROM+<25 
:STARTING FROM WRFROM+. 
32 WORDS’ 


gfe) 


- 
= 
“ee 
=, 
dl 


7. = 


vec PeeQsts 


5 
33: 
e 
0 


— 
sFILL WITH <S#200i 


;#FILL THE WRITE CHECK HEADER AND CATA 


SR RO, J8FUN 


0 
ECISFMT22 


WROHEK 


me a a ee ee ee 


“GET READY TO DO A 
:WRITE SHECK BATA WaT 5c i RHCS! 


Fab A TO RUN FOR DATS COMMAND 
YLINDER §S 
SECTOR. 4 
; TRACK 7 
WORD COUNT = 256. 
:BUS AD . 
: STARTING AODRESS OF DATA 
:D0 Not INHIBIT BUS ADORE SS INCREMENT 
S PER WORD FORM 


316 BIT 
: INHIBIT, ec GORA TION 
:00_NOT INH va HEADER ss 
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WRITE CHECK BATA USING UNIBUS B 
os2777 o0200C 143256 BIS SPSEL,JRHCS! § ;SET PORT B 
‘THAT IS UNIBUS B 
; »aSAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
oc4o37 «o4:534 is SR 0, J8SAVER : SAV E REG 
002272 C IS THE FIRST REGISTER SAVED 
9e4s15 SaUERE AE Tin ADORESS OF WHERE 
i ; TH HE REGISTERS ARE CAVED 
ooon22 18. UMBER OF REGISTERS 
ioaV ED = 18. 
CoNTa7 «O4144s ISR PC, JBCHECKT ;CHECK DVA,RDY,MOL DPR. DRY VV _= 
ND THAT NO StaTus arts ake stuck = 
9631 O37040 194400 066492 TYPE  , CPHALT i CANNOT CONT IRUE. YEsTING IF ANY 6 
9692 . THE FIRST SET OF BITS DON'T = 1 
3633 n37944 ooocc9 HALT STOP 
9665 O3704$ C1377? Oo4S08 143212 MOv DBRPYVEC , IRPVEC :SET, RPOY VECTOR ADDRESS 
9636 :10 *TIMEL” IF P-CLOCK IS PRESENT ___ 
3697 if TO ‘TIMED’ If P- CLOCK K IS NOT PRESENT 
9698 *TIME’ WILL ONLY SAVE 
3699 CURRENT CULINOER ADDRESS 
3700 ° AND LOOK AHEAD REGISTERS 
“Us 
2708 s¥SET FORT SELECT 
$734 237054 OL374s 9020436 MOV DaWRCHEK = ($2. #087 READY TO MOVE COMMAND 
e7os 937560 oSe7:§ 0218: BIS BGONIENPSEL. <Sp READY TO SET 'GO° AND 
9795 BIBLE ipeeRERPS 
$707 027064 C12677 143210 MOY (SP )+, JRHCS! WITH 
3708 . ae IN RHCS1 FOR WRITE CHECK DATA 
| 9799 WITH INTERRUPT ENABLED 
$736 0937979 o11100 MOV 3R1,R9 SSAVE RHCS1 DURING ABOVE OPERATION 
| sei 837572 911305 MOV JR2.RS :SAVE RHDS1 DURING ABOVE OPERATION . 
es § 
9713 ars ( , 
| 8715 937074 104412 WAT sWAIT FOR RDY BIT TO SET ; 94 
| 37s 937076 402305 RHCS} sWaLT FOR RHCS! REGISTER ' . 
| $716 37105 sod3e9 ROY ;HAIT FOR ROY BIT IN RHCS1 REGISTER 
| 9737? 937352 301732 986 LLOM MICRO SECONDS 
| 9718 9637155 9563s83 934: :RDY MUST SET 5 
a1 :1520 AND 19200 MIERO SECONDS 
| 9721 | :#COMPARE CONTENTS CF RHCS1 AND RHDS1 ALREADY SAVED IN 
$72 :#RO AND RS IMMEDIATELY AFTER GO 
| 8735 O97196 01374 op2426 MOV DHURCHEK,-(SP)  ;SAVE comma ND 
' 9725 O371le CS2716 Oo06:01 BIS BIE! DVA'PSEL!GO, (SP) INCLUDE JE!DVAIPSEL!60 
| $786 037116 Olib37 Odiie4 MOV (SP) 2eSGDDAT =: SAVE FOR PRINTOU 
| 9727 037122 022600 CMP (§P)4+,R0 iu URING ABOVE OPERATION ONLY IE!DVA!IPSEL! SO 
9728 AND COMMAND SHOULD BE SET 
$725 027124 O01405 | BEG 73 :BRANCH IF GOOD 











MAIND =1i-DoRJI=A, cindy? 2; 
Pll T4? 


DIRIIN. 
$730 037126 010037 


a3h BEE ANAS: 


9734 93% 2140 Ole74s 


9754 O37eie 002304 
3758 U37ei4 OC3405 
3756 
3757 
9758 
9759 


9760 037216 904037 
97 O372e22 904612 


9765 037232 037240 


9768 037234 C4076 
$770 937236 000207 


9777 937246 





OS 
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WRITE CHECK BA oy ius Ne inteus B 
sue By ER Peas 
sen ERROR 21" if ce aie ePeRat 18h ¢ ONLY eat af did 
019590 &7§ MOV aMOL! DPR! vv, ~(sPi- e BiPeRe Ee tt BS ah 4: Pate IN } 
901124 MOV (SP), a8SGDDAT FO SPRIN TOUT 
CMP ¢SP)+,R5 :DURING ABOVE OPERATION ONLY MOL!OPRIVY 
‘SHOULD BE SET 
BEQ 69S . ; BRANCH IF GOOD 
001126 MOV RS, J&SBODAT ATA 
o04609 MOV R3; J#REGADR :FAILING REGISTER RHDS1 
ERROR 63 - $DU RING ABOVE OPERATION ONLY 
:MOL'DPR!'VVY SHOULD BE SET 
£9$: 
s#CHANGE SAVED REGISTERS TO EXPECTED VALUES 
o41270 JSR RO, HF ILLRE sMOV_O INTO SAVED RHWC 
Bic ssavED REGISTER TO CHANGE 
941270 JSR RO, JeF ILLRE !MOV WREROM+<(256.%2> INTO SAVED SHSA 
RHBA :SAVED REGISTER TO CHANGE 
WRFROM+< 256. #2) 
041279 JSR RO, aeF ILLRE 340% INTO SAVED RHDST 
SavED REGISTER TO CHANGE 
3405 :DATA 
s#COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
#WITH REGISTER AFTER COMMAND 
o42354 ISR RO, JHCOMREG : CONPARE SAVED REGISTERS WITH 
SAVERE 6000 DATA SAVED IN ‘SAVERE’ 
wc :TEST DATA STARTING FROM ‘RHWC’ 
19. 318. REGISTERS TO BE COMPARED 
ag RETURN TO 9$ ON ERROR 
33 !RETURN TO 9$ ON NO ERROR 
93: ERROR 76 :WHILE USING UNTBUS g 
:WRITE CHECK CAUSED 
RTS eC aN IMPROPER REGISTER 
:G00D BATA GIVES WHAT 
:SHOULD BE T HE RE 
:RECETVED DATA GIVES wW 
WAS THERE AFTER ata 
3$: 


ee ee ee eee eee 
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prRIT WRITE HECK DATA USING UNIBUS B 
9733 
Ft Sd + FHSAA EAA LARA SASSLEAA LAL EAA ARE ALE LAELHAAALEFARALAFSA ARFRALLLFELFZ 
" :ATEST 50 WRITE PROTECT OPERATION 
3738 i IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT SE PERFORMED 
9733 :* IF THE PROGRAM WORKS UNDER ACT-11 MONITOR 
3733 it THEN THIS TEST IS NOT PERFORMED 
Ss. —- M 
$731 1% IF NO ACT-11 MONITOR IS PRESENT 
3793 i THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
3233 :* ON SUBSEGUENT PASSES THIS TEST IS NOT DONE 
97 ts WRITE FROM BUFFER IS FILLED WITH ALL ONES AND 
3756 2% SECTOR O, TRACK O, CYLINDER O IS FILLED WITH 
$799 1% ALL REGISTERS ARE SAVED THEN WRITE LOCK BUTTON IS 
9799 1% PRESSED AND ALL REGISTERS ARE CHECKED. 
3899 :% WRITE FROM BUFFER IS FILLED WITH 377 AND A WRITE IS 
9331 :# ATTEMPTED TO SECTOR 9, TRACK O, CYLINDER O 70. WORDS 
gens :* ALL REGISTERS ARE CHECKED 
9853 2% THE SAME SECTOR IS READ AND DATA COMPARED TO SEE 
$804 :% THAT NOTHING GOT DESTROYED (READ DATA SHOULD BE AL 
gens 2% ONES GND NOT 
| 9906 :* THEN WRITE Look. BUTTON IS PRESSED TO UNLOCK 
3607 i WRITE LOCKS AND ALL REGISTERS ARE COMPARED 
$859 11 teaah-+-+-+->- in tetanic intial aecaiatataininiaaaicntininialaininiaes 
§819 c3724o occoos tSTsOo: SCOPE 
S13 
3813 :¥THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
; $815 037242 905737 904724 TST 2sNOPUSH :1S THIS A 220 START ° 
| 9816 037246 901007 NE 1g : SKIP THIS TEST IF _S0 
$817 037250 905737 ccDD4e TST de4e2 MONITOR (ACT ii) RETURN ADDRESS ? 
981s 937254 001004 BNE 1$ SKIP THIS TEST 
9815 937256 005737 001100 TST desPass FIRST P 
9829 037262 901001 BNE i$ : SKIP THe TEST IF NOT 
| sei 037264 dS0c402 BR 2g :CONTINUE WITH THIS TEST 
| $823 037266 ; 18: 
| 9824 037266 900137 o404e4 IMP TSTS1_ =; JUMP TQ NEXT TEST ---------------- 
| 9825 937272 23: 
$226 037272 012706 501000 MOV #STACK, SP sRESET STACK 
227 637275 6!2737 Of00SO oo4eo4 MOY #50, a8 TSTNM :SAVE TEST NUMBER 
{| 9829 037304 0047327 041366 ISR PC, JeCLDISK :SET RI-RHCS1 R2-RHCS2 
| $839 :R3-RHDS1, RY-RHER 
| 3833 : GIVE Beets” INITIALIZE 
| 303 :SETUP UNIT NUMBER 
| 9834 :¥FILL SECTOR 0, TRACK O, CYL OG WITH ONES 
' 989C *FILL WRITE FROM BUFFER 
| 9836 037310 004027 04122¢ if RO, J#CLAREA :CLEAR 256. WORDS, FROM NWRFROM 
j 
| 
_ - ——_— ee a GION (oes nett NW se ee cat Re oso | 
ss a 
neg 















$855 037342 


037344 
937350 
9864 037354 
9866 037356 


9874 037364 
9875 037270 


$877 037374 


3883 937400 


9887 037410 


Poa oe i “DIRII-A, RPO 


“T50 
002470 


tee 


004037 
000908 


909650 
010009 


o02442 


004727 


104400 
cossac 
013777 


013746 
C2716 


012677 


104412 


004704 





043349 


the. PI, 


O4144S 
OS64Ce 


COYESE §=142702 


od244e 
000191 


142700 


ae TST-PT 1 
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WREROM STARTING FROM WRFROM 
256. : . Wo 
-l sFILL WITH -1 


:®FILL WRITE DATA COMMAND 
JSR RO, J8RUN ;SETUP TO RUN FOR DATA COMMAND 
C CYLINDER 0 


0 Back 

0 ACK 0 

SHORD COUNT. = 26. 

; STARTING ADDRESS OF DATA 
;BUFFER = WRF: 


9 D0 NOT INHIBIT BUS RODRESS INCREMENT 
FMT22 16 BITS PER WORD FORMA 
:D0 NOT INHIBIT ECC RORRECTION 
;00_N NOT INHIBIT HEA DEP COMPORE 
WRIDAT “GET READY TO DO A 
-WRITE DATA WITH 60 IN RHCS! 



















ISR PC, 28CHECKT ; CHECK pve, RDY,MOL.DPR,DRY, VV = 
T NO Status Bits BE sfuck =! 
TYPE | CPHALT eNO CONTINUE Tat? F y OF 
:THE FIRST SET OF BITS Bot” re l 
HALT : STOP 


MOV BBRPYVEC,IRPVEC ; SET at VECTOR ADDRESS - 
310 ’ ahs IF P-CLOCK IS PRESENT 
;0R TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
ef Tne? WILL ONLY SAVE 

CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 









MOV QauRIDAT -(SP) ;GET READY TO MOVE COMMAND 
BIS E, (SP) :GET READY TO. SEI "GC" AND 


MCV (SP)}+, JRHCS1 










x 
60 IN RHCS1 FOR WRITE DATA 
aha INTERRUPT ENABLES 


;*TIME IS NOT CRITICAL 
;WAIT FOR RDY BIT TO SET 


Res! ;WAIT FOR RHCS1 REGISTER ae 
RDY [WAIT FOR ROY BIT IN RHCSi REGISTER 
2500. sALLOM 25000 MICRO. SECONDS 

2500: :ROY MUST SET 


WEEN 
:00 AND S000 MICRO SECONDS 
;*SAVE REGISTERS FOR COMPARISON AFTER WRITE PROTECT 











OZRIIA.P11 















9897 37422 
38 








9893 
9900 937424 
037430 






9303 037450 


























7602 
9919 937604 














9924 037606 
Bares 







03 
9933 0376c6 


750 


bozate 


O04Sie 
000022 


104400 
000407 


913746 
104404 
104400 
oo0442 
o00000 


004927 
002322 


000091 
000861 
CO40SS 


19404! 
000207 


041534 


037432 


004716 
037464 


C422e4S 


042354 


MNAINDEC-11-DIRJI-A, RPOW’S’S FUNCT. CONT. TST-PT 1 
WRITE PROTECT OPERATION 


bsg: 


bas: 


3$: 
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;*BUTTON HAS BEEN HIT 


SR RO, J#SAVER AVE REGISTER 
RELIC ‘RAW e Fe The Flast REGISTER SAVED 
SAVERE ; STARTING "ADORE S OF WHERE 
; THE REGISTERS BRE SAVED 
18. :NUMBER OF REGISTERS 
SAVED = 18. 


’ 


TYPE 685 Hag ASCIZ STRING 
BR 7§ OVER THE ASCIZ 
"ASCIZ <15)<12>/0N DRIVE’ 

MOV QeUNIT,-(SP) ;GET UNIT UNDER TEST 
TYPDS 


TYPE 70$ 35 TYPE ASCIZ STRING 


BR 9$ OVER THE ASCIZ 
-ASCIZ <15><12> “PUSH wRitE PROTECT BUTTON TO LOCK OUT WRITES THEN HIT 


JSR RO, d#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ;CHANGE RHDS1 REGISTER 

1 i] BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF WRL IS 

WRL :CHANGE WRL BIT 


;#COMPARE ALL REGISTERS BEFORE WRITE WAS LOCKED 
;*OUT WITH REGISTER VALUES AFTER WRITE WAS LOCKED OUT 


JSR RO, J#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 


; PRE 

SAVERE ;GOCD DATA SAVED IN ° RE’ 
We ;TEST DATA STARTING FROM *RHWC 
18. 318. REGISTERS TO BE COMPARED 
3$ ;RETURN TO 3% ON ERROR 

4§ ;RETURN TC 4$ ON NO ERROR 
ERROR 41 ;LOCKING OUT WRITE BY 

TS Pe WRITE LOCK BUTTON pata 


sea SESISTER CHANGE 
3 G00D DATA GIVES fiHAT SHOULD 
;BE THERE 


; RECEIVED DATA GIVES WHAT 
THERE AFTER WRITE 
WAS LOCKED OUT BY BUTTON 
; #NOW Oats WILL BE ATTEMPTED WITH WRITE LOCKED 


;*OUT 
s#FILL WRITE FROM BUFFER WITH 377 








HALT 
rey eee REGISTER THAT SHOULD CHANGE IS RHDS1 - BIT #11 
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DZRIIA.P11 TS WRITE PROTECT OPERATION 


ae 037830 013737 037630 O01110 4S: MOY 34S, aeSLPERR ;SCOPE LOOP STARTS FROM HERE 












? 
037636 004737 941366 ISR PC, J#CLDISK T R1-RHCS1, R2-RHCS2 

mi : Re Rosi” RACRHER! 
9950 : GIVE Reel INITIALIZE 
9951 :SETUP UNIT R 
$952 O37642 004037 041236 JSR RO, J#CLAREA “CLEAR 256. WORDS FRON WRFROM 
9953 037646 002470 WREROM ; STARTING FROM WRERO 
9954 93765C 900400 256. 
9955 037652 000377 377 FILL WITH 377 
9957 
3358 s#TRY A ONE WORD WRITE 
9960 037654 004037 043340 . JSR RG, 38RUN ;SETUP TO RUN FOR DATA COMMAND 
9961 037660 o00000 0 :CYLINDER O 
3366 037662 009 BYTE 9 : 

037663 000 "BYTE 0 TRACK O 

9964 037664 177777 -1. ;WORD COUNT = 1. 
9565 037666 002470 WRFROM :BUS ADDRESS | 
9966 :STARTING ADDRESS OF DATA 
9967 ‘BUFFER = KRFR 
§968 037670 occooro 0 :DO NOT INHIBIT BUS 5 ADDRESS INCREMENT 






9969 037672 610000 FMT22 716 BITS PER W 
3970 : 





3D0_NOT INH 
9972 037674 oo244e2 WRIDAT ‘GET READY TO DO A WRIDAT 
3373 | ;WRITE DATA WITH 60 IN RHCS1 








$3 ,#SAVE REGISTERS 

9977 037676 004937 041534 JSR RO, J#SAVER 3 SAVE REGISTERS 

9978 03770e 902272 RHWC ;RHWC_IS THE FIRST pectoree SAVED 
9979 037704 OO046le SAVERE ;STARTING ADDRESS OF WHERE 

99380 ; THE REGISTERS ARE SAVED 

9981 037708 000022 18. NUMBER OF REGISTERS 

S365 SAV ED = 18. 

9984 037710 013777 OO4606 142350 MOV MBRPYVEC ,ARPVEC ;SET oo VECTOR ADDRESS 

9985 310 ° Tie IF P- he IS PRESENT 
9986 3OR TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
9987 ;* TIME’ WILL ONLY SAVE 

$988 CURRENT CYLINDER ADDRESS 

aeen SAND LOOK AHEAD REGISTERS 









9991 

9992 037716 013746 ooe44e MOV DWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
9993 037722 052716 Odd10! BIS #GO!'TE, (SP) :GET READY TO SET GO’ AND 
9994 ) sENABLE INTERRUPT 

8995 037726 012677 142346 MOV (SP)+,9RHCSL ;GO WIT H 

9996 -60 IN RHCS! FOR WRITE DATA 
9997 : WITH I TCRBUPT ENABLED 

9998 s*TIME IS NOT CRITICAL 





SeaaeeeS 


BBBHEBREE 


WONIWU£ UIT 


Rsittahiiaiials 


: 


Returns 


8 


Petatetatatatatatatetatatetetateteretetetereretereteteteer state e terete ETT E TTS ETSIS TESTE STE STE 
peesueneneg 
—-OwOo~ 0" wre 3 


oo 
oo 
aH 


TS0 


004037 


ZRII-A, RPOWS “6 FUNCT. CONT. TST-PT 1 
WRITE PROTECT OPERATION 


142322 004612 
142316 O04614 
142312 


009300 
004616 


042246 


041270 


042246 


042246 


004740 


042354 


MACY11 27(655) 
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ATT FOR RDY oT. TO 


MAT FOR Oh ROY e0y Fife cone REGISTER 


oA OMUST SET BETHEEN. 
:00 AND SOOO0 MICRO SECONDS 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JRHWC , JSSAVERE 
JRHBA; i) lhe RHBA haat 


JRHCS ) 
a CCTRIORS (SP) P IR AND OR 
#IR!OR ton (SPD AK CEE AR SAVED IR OR 
(SP)+, JUSAVERE+4; SET OR IR AS REQUIRED 


;RHWC IS UNPREDICTABLE 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


ie pla 3 TO BE CHANGED 
ALUE OF SC IS 1 

CHANGE SC BIT 

; NEW Ma oe Is 1 


{MOV 1 IN NTO SAVED RHDST 
s SAVED REGISTER TC CHANGE 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHERI REGISTER 


;1 BIT/BITS TO BE CHANGED 
:NEW VALUE OF WLE IS 1 
CHANGE WLE BIT 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHDS1 REGISTER 


;2 BIT/BITS TO BE CHANGED 
; UE OF ATA IS 1 


gt 
;NEW VALUE OF ERR IS 1 
;CHANGE ERR BIT 


FOR WORKING DRIVE IN 
SAVED RHAS LOACTION 


TERS BEFORE WRITE WAS ATTEMPTED 
S AFTER ATTEMPT 


;COMPARE SAVED REGISTERS WITH 


;SET APPROPRIATE *ATA’ BITS 
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DZRJIA.P11 Ts0 WRITE PROTECT OPERATION 
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10053 

1 10¢ 2 SAVERE TA AED IN 'SAVERE’ 
ishes Bute Sieses i CRA Bihe 
1opes Bal 50 OSE: o$ fat TURN Ate ee ERROR 

19058 110 O4O116 65 RETURN TO be ON fi ERROR 
{BEd 104042 S$: ERROR 42 arTeetine TO WRITE WITH 
10061 O40114 000207 RTS PC :WRITE LOCKED OUT 

i ; CAUSED IMPROPER REGISTER 
1CObH nf TA GIVES WHAT SHOULD 
1 ‘RECEIVED DATA GIVES WHAT WAS 
{Goe7 44 THERE AFTER ATTEMPT 

190693 ;*NOW A READ WILL BE DONE as DETERMIN THAT 

10070 sane ADS CAN BE DONE WITH WRITE LOCKED OUT AND 

10973 T NO DATA ON DISK GOT CHANGED, BUT FIRST CLEAR ERROR 
te 040116 6S: | 

10075 O40116 004737 041366 JSR PC, J#CLDISK ;SET RI-RHCS1, R2-RHCS2 

10976 :R3-RHOS1, R4Y-RHERI 

100 ; GIVE RH-11 INITIALIZE 

ines ;SETUP UNIT NUMBER 

10080 -#FILL READ INTO BUFFER WITH O 

10081 940122 004037 041236 ISR RO, J#CLAREA :CLEQR 256. WORDS FROM REINTO 
10082 040126 003534 REINTO ; STORTING FROM REINT 

10083 40130 900400 256. WO 

10084 040132 o00000 0 PFILL WITH G 

1008 

tebe -¥F ILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ 
10088 040134 004037 041236 4s R RO, JBCLAREA ;CLEAR 256. WORDS, FROM WRFROM 
19089 O40140 002470 :STARTING FROM WREROM 

10090 O40142 900400 oem :256. 

10091 O40144 177777 -] ‘FILL WITH -1 

10092 

10093 

10038 ;#FILL COMMAND 
ibbee 040146 004037 643340 ISR RO, J8RUN ;SETUP TO RUN FOR DATA COMMAND 
10097 O401S2 oo0000 Q CYLINDER O 

10098 o40154 000 .BYTE 0 ;SECT OR O 

10099 oO40iss 000 "BYTE 0 : TRACK O 

10100 O40156 177400 -256. ; WORD COUNT = 256. 

10101 160 003534 REINTO DDRESS 

10102 ST ARTING ADDRESS OF DATA 
10103 ‘BUFFER = REINTO 

10104 o80162 ocDD000 0 :DO-NOT INHIBIT BUS ADDRESS INCREMENT 
10105 040164 014000 ECI!FMT22 16 BITS PER WORD FORMA 
10106 ;INHISIT ECC CORRECTION 





NNncC >i 
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10107 
| 


bs bee 


1: 


Sel ed eel 
om 


= 


ae 


BBE OUT CORO De PUT £ CHT O BOB OU Ecole Ud NOUN CoF Ur Co OD SUT 








a ;D0 NOT INHIBIT HEADER COMPARE 
;READ Aga ith 40 PuPRHes| 


MOV JRPYVEC , IRPVEC SET RPOY VEC 16 ee 
;19 OR 10, "Tinea Te. F OCK IS PRESENT 








~CLOCK IS NCT PRESENT 


iF Y 
SCURRENT CYLINOER ADDRESS 
3AND LOOK AHEAD REGISTERS 


MOV JHREADAT, -(SP) T READY TO MOVE COMMAND 

BIS #GOrIE, (SP) T READY TO SET °GO’ AND 
‘Bvete INTERRUPT 

MOV (SP)+, JRHCS1 


tN WH eHCSi FOR READ DATA 
“ie INTERRUPT wk 
WAT WAIT FOR ROY IT 10. SET 
RHCS1 at Fe ae STER 
RDY T T FOR OR ROY IT Gt RHCS1 REGISTER 
as: a T SF EO WEEN 

. pr nuts SET eel MIC 5 SECONDS 


;#COMPARE READ DATA 
ie on RO, J8COMPAR ; COMPARE Me Be ; aon MEMORY 


DATA WRF ROM 
REINTO {TEST DATA START FROM REINTO 
‘ 256. WORDS TO BE COMPARED 
RETURN TO 7$ ON ERR 
8s RETURN TO 8$ ON NO ERROR 
ERROR 43 ;WRITING WITH WRITE 
;LOCK ED CHANGED DISK 


DATA GIVES WHAT WAS 
ON DISK BEFORE WRITE WITH 
;WRITE LOCK WAS ATTEPTED 
{RECEIVED DATA GIVES WHA 
READ BACK AFTER WRI TE 
SMITH WRITE LOCKED WAS ATTEPTED 


;#SAVE REGISTERS FOR COMPARISON AFTER WRITE LOCK HAS BEEN 
; #UNLOCKED 


JSR RO, J#SAVER ‘Rae REGISTERS 
RHWC HWC IS THE FIRST REGISTER SAVED 
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DIAIIA.P 7st WRITE BRStECT OPERATION 
rO1si osozs2 oc4siz SHVERE :STARTING AGORESS OF WHERE 
Side . ; THE eR OE REG 3 cS 
13253 oyazs4 oooo22 18. :NUGE TER 
teiee 
1diss oyoess $720: 
1G16> oudese 1O44Og =—ONOREY TYPE S$ s:TYPE ASCIZ STRING 
15iss S40262 coc4a> BR bug :GET OVER THE ASCIZ 
13163 tee, % 5858: .ASCIZ <15>«12>-0N DRIVE’ 
13:79 940392 £43: 
10171 589302 O13T46 O04716 MOV QUNIT,-(SP) | :GET UNIT UNDER TEST 
Taree Be0356 «1o4404 TYEDS 
23373 848310 ross00 voz TYPE £7$ ssTYPE ASCIZ STRING 
ioi74 45314 50849 BR gS GET OVER THE ASC 
10175 --67§: .ASCIZ <16<12>/PuSH WR? sgt PROTCT BUTTON TO UNLOCK WRITES THEN HIT CONTINUE’ <iS 
iDi7& oO4O41E fés: 
bes o4d4ié ooc900 HALT 
15173 ';#THE ONLY BIT THAT SHOULD CHANGE IS WRL-BIT #11 IN RHOSL 
1518} owos2o o04037 O4z246 ' SR RO, JaCHRES CHANGE BITS IN SAVED REGISTER 
ictge Bysys4 92332 RHES | 'SHANGE RHDSL RESISTER 
15184 o4c426 coo! l ;1 BIT/BITS TO & CHANGED 
1018s 949439 99d050 5 ;NEW VALUE OF 
1ct8é 54432 004056 WAL te 
i189 :#COMPARE ALL REGISTERS pale WRITE LOCK WAS UNLOCKES 
10183 :#WITH REGISTERS AFTER WRITE WAS UNLOCKED 
1519: 
Gide 040424 504037 o42354 JSR RO, JeCOMRES :CONPARE § SAVED REGISTERS WITH 
1O194 oOMoNNO gO4e12 SAVERE : 3908 DATA SAVED IN "SAVERE’ 
rO19s OMosH> 902354 ic TEST DATA STARTING FROM ‘RHWC’ 
| 1018 gyove4 Boone 18. 219 REGISTERS TO BE COMPARED 
10197 O4Os4e 45452 55 :RETURN TO 9$ ON ERRO 
| 2198 OHOHSD OHOHSE 108 ;RETURN TO i0S ON NO ERROR 
Tose guoWss poNcHS $$:. ERROR 44 sUNLOCKING URLTES BY URITE 
ifee: Bases fcosc? RTS PC ;LOCK BUTTON CAUSED AN ERROR 
iGele $6000 DATA GIVES WHAT SHOUL D 
15203 THERE 
| i024 : RECEIVED DATA. GIVES WHAT WAS 
| 1020s THERE AFTER WRITES WERE 
skis! : UNLOCKED 
| 16207 : ON THIS ERROR NO LOOPING IS REC: OMMENOED 
| [5258 ;JUST A_HALT ON RAOR WILL D0 THE SAME 
| T5205 ae ‘ THING AS ONLY THE REGISTERS ARE READ 
| S58IC OWOHSE 012737 77777 C4760 10S: MOY —-#-1, JaPRITEN ‘CLEAR BRe\ 70US ITEM NUMBER 
| 
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E bebbbebebefoetebobafofbeelebebebtetobababolohefoetetolabobtobelolofledbieboboedeboleiottelelolobefebleieiedde 

p RRERRRELEREERER SEER EERRER SEE EERE E EEE LEASE LES EEE EEE EEE SSS EEE ERE 
LE RARERERERRERERAREERR ELAR EEREAE EAE RARER LEAR ELSE PEEEEER SEE ERESE 
:*#TEST Sl END OF DRIVE 


THIS IS THE END OF TEST FOR ONE DRIVE 


:* IF THERE ARE MORE DRIVES, THEN THE PROGRAM 
:# JUMPS TO TEST 4 FOR TESTING THE NEXT ORIVE 
-2 


END PASS IS REACHED ONLY AFTER ALL DRIVES ARE TESTED 


a 


s SERLLESRELALESSSAALSEFRELSRAFELELLELSLAAFERSLERE SSS LAFAFLSLAFLSEE 


+étS1: SCOPE 
MOV wi. STIMES 1 ITERATION 
MOV 80.P5 tA TNSTATE PS TOC 
TiPE 655 s; TYPE ASCIZ STRING. 


R 45 VER THE ASC 
S$: -ASCIZ ¢15)<12>/TOTAL ERRORS ON THIS PASS ON UNIT NO. / 


ook 
£35 
HOV JBUNIT, -(SP) ;GET READY TO TYPE UNIT NUMBER 
TYPE =, 87 ::TYPE ASCIZ STRING 
’ R bas °:GET OVER THE ASCIZ 
jiees ASCIZ 4 2 
HOY Ae QsSERTTIL,-{SE) ;GET SEADY TO TYPE NUMBER OF ERRORS 
Yeo 
CLR JsSERTTL : CLEAR TOTAL 1 aRBER OF ERRORS © 
cLR a831STNM :CLEAR TEST NUMBen 
TST DBSELECT ;STARTING FROM 200 
BE9 33 CHECK NEXT DRIVE IF SO 
CONTINUE WITH THIS ONE IF NOT 
INC augPass : INCREASE PASS COUNT 
TYPE SENOMG TYPE “END FASS 8 
MOV deSPASS, -(SP) 
TYPOS 
TYPE SENULL 
JMP aeTSTy ;JUMP TEST 4 --------------------- 
38: MOV 8-1, 08PRITEM =; CLEAR PREV0US TEN NUMBER 
DEC QENGUNITS :NO. OF UNITS PRESE 
BEG SEOP :BRANCH IF ALL SRIVES COMPLETE 
MOV JAUNIT, RO ;UNIT UNDER TEST 
MOV #UNITS'R! ‘TABLE POINTER 
1S: CMP (Ri}+.R0 :IS THIS UNIT JUST TESTED ? 
BES 2 :BRANCH IF YES 
BR 1g :BRANCH IF NO 
23: MOV (RL), JaUNIT :MAKE THIS NEXT UNIT 
IMP aeTsts “TEST THE NEXT DRIVE -------------- , 
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CONT. TST-PT 1 
EST THE NEXT ORIVE 


.SBTTL END OF PASS ROUTINE 


; RERRRRELRERREER EERE ER EERE RE RR ER LEER LER REEL ALAAAAEERES ELE REED SS 
: RINCREMENT THE PASS NUMBER ($FASS) 
;*TYPE “END PASS #XXXXX" {GRE XXXXX IS A DECIMAL NUMBER: 
;*IF THERES A Sg GO A IT 
;2IF THERE ISN’T 


SEOP: 


D 
SEOPCT: . 
B 


SENSCT: .W 


$ENDSD: 


SDOAGN: 


SRTNAD: Wi 


SENULL: 


SENDMG: . 
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/SBTTL 3 
"SETTL 9 #*SUBROUTINES#® 
“S8TTL 


33; YES 
:;RESTORE COUNTER 


PASS 8 
£1 S8VE $PASS FOR TYPEQUT 
oT AL ASC! 
ge " NULL CHARACTER 
: {i st 2 


“1,-1.0 *:NULL CHASACTER STRING 
<{6><13>-Enp pass’ s? 


ee en ee a ee ee 
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DIRIIA.PL! OF Fass ROUTINE 
19319 
19311 
10312 .SBTTL JAM CURRENT CYLINDER ROUTINE 
10314 :* UTINE TRL CHANGE THE CURRENT CY. INGER REGISTER "RECS" ; 
Sate ;* By a1 VING-A SEER: COMMAND ote SED BY nn IT WHICH WILL LOBE ; I 
10318 , RCE" NETH THE DESIRED OCYLINGER ae" “THE ROUTINE THEN CHECKS ' 
19310 j#THAT THE LOADED VALUE IS CORRECT. 
138 tSCALL Is: 
10320 :# JSR RO, IBMAKECYL 
irish :* xC ;DESIRED VALUE OF CURRENT CYLINDER 
10323 041036 MAKECYL: 
19324 41036 O10S46 MOV RS, -(SP) ;;PUSH RS _ON STACK 
10325 041840 910037 o41422 < MOV RO. SHPCISR PC OF JSR+4 - 
19326 O41044$ 162737 O00004 o4142 SUB a, SAPCISR SAVE PC OF JSR 
i0327 941052 012005 MOV (RO)+ ;GETTING READY TO FILL DESIRED CYLINDER 
19328 941054 010577 141232 MOV RS, SRHCA sFTLL DESIRED CYLINDER REGISTER 
10329 41060 O0S077 141220 CLR JRHOST ;MAKE SURE ESIRED SECTOR TRACK IS NOT ILLEGAL 
10330 941064 Ol3777 O0e452 141206 MOV DeSEECOM, RHCS1 :FILL SEEK COMM 
ig33) O41072 012777 d0000! 141220 MOV #DMD, JRHMR ;SET DIAGNOSTIC ANODE 
10323 41100 004727 043200 ISR PC, I8PUTREG : TAKE A REGISTER SNAPSHOT | 
10334 O41104 032737 o40000 902404 817 ¥ERR, D80S1 ; CHECK FOR COMPOSITE ERROR 
10335 D4ilie 001401 BEG fe NOT A-OK 
10336 O41114 104103 ERROR 193 REGISTER CONTENTS INCORRECT BEFORE A 
133 :DIAGNOSTIC SEEK 
10339 O4:118 052777 O0O0G: 141154 28: BIS G0, 2RHCS! : ISSUE GO’ TO SEEK COMMAND 
16340 O41124 900240 NO LLOW TIME FOR SEEK TO HANG LP 
10341 O4tle6 O0de40 NO SALCOW TIME FOR SEEK TO HaNG uP 
16342 041130 000240 NOP ALLOW TIME FOR SEEK TO HANG UP 
1243 041132 goce40 , NOP TALLOW TIME FOR SEEK TO HANG iP 
18345 041134 004737 943300 ee JSR PC GHPUTREG AKE A_2ND REGISTER SNAPSHOT 
10346 O41i40 032737 O40009 coz4o4 817 BE ERR R, 2805! CHEEK FOR ERRORS 
10347 O41146 O01401 BEQ T=1, A- 
19348 941150 104104 ERROR vo REGISTER CONTENTS INCORRECT AFTER 
10338 : :A DIAGNOSTIC SEEK 
vse 
10351 O41i52 904737 041366 3S: ISR PC, JBCLDISK sGIVE INIT TO FORCE THE TRANSFER 
| 10352 O4L15€ 017737 141152 091126 MOV JRHCC 33580087 T CATA af) 
| 16353 041164 020537 Col126 CMP RS, Ja$800 COMPARE CURR NT CYLINDER r 
10354 941170 O01406 BE9 1$’ ; BRANCH 
| 10355 O41172 010537 901124 MOV RS, JeSCODAT :GO0D VALUE SOF ORHCC 
| 10356 O41i76 013727 002334 o04600 MOV SURHCC, SHREGAOR ; sEAILING REGISTER ADDRESS 
| 10357 O41204 104077 ERROR CURRENT CYLINDER DOES NcT MATCH DESIRED CYLINDER 
0258 SREGISTER AFTER A SEEK AND AN INIT 
| $9359 41206 ig: | 
10260 O41206 O12605 MOV (SP1+,R5 :;POP STACK INTO RS 
j $0361 O4lei9 300209 R7S RO 
| 
| 
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DPRITA.PL Jah CURRENT YLINDER ROUTINE 
10362 
19353 :*THIS FILLS MEMORY WITH GIVEN DATA ) 
10364 :¥USED CHIEFLY FOR HEADER INFORMATION 
10365 CALL IS 
i335 :* JSR RO, d#FL HERD :FILL HEADER ) 
1336; :# Loc ‘T OEATION WHERE SAVED ‘ 
10368 :# XN :NUMBER OF WORDS 
15363 :# D1 DATA REPEATED XN TIMES A 
12 n i xD2 :PATA REPEATED XN TIMES ; 
1937, + 
10373 ot 
19374 
10375 cHi212 FLHEAD: . 
10376 O41212 O1o14 MOV R1,-(SP) ;;PUSH RI ON STACK 
19277 S4l214 O1sSye MOV Re’ -( SP) -PUSH R2 ON STACK 
0378 41216 O120C1 MOV (RO)+,R1 by HAS ADDRESS OF WHERE TO SAVE- 
12373 O4l220 o120de ; MOY (RO}+:Re :Re HAS NUMBER OF WORDS 
10381 ;#NOW FILL DATA 
10382 
10383 4122 012021 is: MOV (RO)+, (RL)+ :SAVE DAT 
0384 O41224 905392 DEC Re :DECREMEN Me COUNT 
10285 41226 001375 BNE 1$ : BRANCH IF INCOMPLETE 
19386 941230 O1269e MOY ‘SP}+,R2 :;POP STACK INTO Re 
10387 O4lese O1e691 MOV (SP}+°R1 ::POP STACK INTO RE 
16388 041234 o00=00 RTS RO Pev's 
19389 5 
10390 
10391 5 
19393 :#THIS CLEARS ANY BLOCK OF MEMORY. 
10393 :#EILLING 17 WITH ANY DATA 
30354 :#CALL I “ 
19395 2% ISR RO, D8CL AREA. « § 
10336 :* F ) 
19397 2% N NUMBER OF WORDS 4 
19296 a D :DATA TO BE FILLED \ 
10393 & § 
19500 :#R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
1040; :#Re WILL HAVE N UNGER OF WORDS 
1642 :#23 WILL HAVE DATA 
19493 
| 10404 O4123¢ CLAREA: 
| 16405 O41236 o1914s MOV R1,-(SP) i: PUSH ®1 ON STACK 
| [ONDE 941549 O10546 MOV Ro’ -(5P) PUSH Re ON STACK 
{ I9WA7 Awidua AINIuE Mav Ra -1SP) tIPUSH AS AN STAR 
10408 941244 012991 MOV (RO)+,R1 :FROM 
10459 O41e46 O12002 MOV (RO)+: Re ; NUMBER 
| 10419 O#1es0 912003 MOV (RO)}+R3 :DATA 
' 198i: O41252 01032: 1S: MOV R32, (RL)+ : MOVE DATA 
| [O4i2 O41254 05302 DEC Re : COUNT 
| 20413 041256 001375 ONE 1$ : BRANCH IF NOT pGOupLeTE 
| 10414 O41260 012603 Mov (ep )4, R2 :POP STACK INTO R3 
| TO4i= S41262 O12602 MOV (SPj)+ Re : POP Stack INTO Re 
i 
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1416 O41284 21260 Muy (SP )4, RI :;POP STACK INTC RI 
Nie Ouisée 500206 RS RD :RETURN TO MAIN PROGRAM t 
10475 é 
10450 . 
1541 
igs 
13454 :*THIS IS A SUBROUTINE TO FILL SAVED REGISTER LOCATION 
15435 :aWITH GIVEN VALUE 
i0se6 r#CALL IS 
104e7 :# JSR «RO. SBFILLRE 
25438 : RHXX TREGISTER NAME 
1d4e2 7* 4) ;DATH 
10430 7* 
i043] 
10432 941276 FILLRE: 
ipa33 41279 gi0i46 MOV «RI, - (SP) ;;PUSH R1 ON STACK 
1434 O41073 910546 MoV —-R2. =(§P) :7PUSH_R2 ON STACK 
1435 , SHierd O1e00: Nov cRO)+ 8 : ADERESS OF ADDRESS OF REGISTER gc ™ 
tase “Bylsoe eSeoT og2272 SU8 ss BRHWC RI : OFSET ae © 
38 0413049 019251 dd4e12 MOY Re, SAVERE(R1) © :DATA IS MOVED_IN 
16439 41319 Biese MoV (SP3+,R2 :;FOP STACK INTO Re 
T5440 Eai3i2 Sizer Mov = {EB} 4c RI :iPOP STACK INTC RI 
| ea, Sa13i8 500600 RTS RO :RETURN TO MAIN PROGRAM 
| joes 
| Ssas 
! 
| 





ae ae ° Tr Ar ee ee 
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 SE9 2279 


ie s THIS SUBROUTINE SETS UP FOR SEARCH 

ieaae S JSR RO, d8SRCH 

10448 % Cc ; CYLINDER 

10443 &, BYTE § ;SECTOR 

1420 ;*.BYTE T : TRACK 

10452 04:31 12077 140779 SRCH: MOV (RO)+,RHCA ;SET DESIRED CYLINDER ADDRESS 
19453 O4l322 12077 149756 MOV (RQ) +, JRHDST 5ST DESIRED | BT, at ADDRESS 
1D4S4 D4l32b OCl377r 502434 14744 MOV JBSERCH, DRHCS! 3 GET READY FOR SEAR 

10455 sWITH 39 IN. Buces 

1C4SE 041334 20000 RTS RO 

29457 

10458 

10459 

10460 

1461 

1o4be 

104523 

LO464 :*THIS SUBROUTINE SETS UP FOR SEEK COMMANDS 

1046S ;#CALL IS 

iDSés 7% JSR RO, SaSEEKCY 

19467 :% Cc ; CYLINDER 

tbass " é 
10479 341336 012077 140750 SEEKCY: MOV CRO} +, JRHCA ;SET DESIRED CYL INOER ADDRESS 
1047; O4134e O0:3777 baSGes 140730 MOV SESEECCH, ZRHCS! MOY 4 INTO 1 

10s72 G4isso 20020¢ ETS :RETURN TD Mat rN PROGRAM 


ne 2 ee es oe nee aw een ae eee 


<a eee eee 


TMC. } 
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DIRIIA.PL1 JAM CURRENT SYLINDER ROUTINE , a 
19473 b 
1gsrs THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS 
10475 seCALL IS 
1047 + JSR RO, J8OFSET 
102 :% 0 sMICRO INCHES OFSET 
teas 941352 952077 140732 OFSET: SIS (RO) +. IRHOF ;SET OFSET REGISTER 
1o4eo 043356 013777 S02454 140714 MOV DROFSETC, @RHCS1 :MOVL4 INTO RHCS1 
19481 041364 000200 RTS RO RETURN TO MAIN PROGRAM 
10483 
10494 941366 313701 002300 CLDISK: MOV QeRHCS1, RI :R1 WILL BE CONTROL AND STATUS! 
:548S 041372 813702 Oo02276 MOV J#RHCS2. Re "R2 WILL BE CONTROL AND STATUS 
10486 413 013793 99238 MOV DeRHOS1 , R3 :R3 WILL BE DISK STATUS REGISTER! 
10487 1402 613704 00230 MOY DeRHERI | RY RY WILL BE ERROR REGISTER #1 
al 
10489 O41406 O12712 o0004e MOV #CLR,2 “CLEAR ALL REG. 
19480 O41412 O13712 OO4718 MOV siuntT Re ;REINSTATE UNIT NO. 
1043: S4lsig O65o11 CLR aR1 sCLEAR FUNCTION BITS 
10493 941420 000207 RTS PC 
| 
| 
| 
| 
| 
: . 
h 
a 
} 
[ is/mar } 
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DZRIIA.P1L JAM CURRENT CYLINDER ROUTINE 

10493 

10494 

14s 

10497 s*THIS, CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RY) IN HCE! 2 
l 33 3 #AND C CKS MEDIUM ON LINE (MOL), DEVICE PRESENT (OPR), DEVICE aby" 
10998 RY) IN RHDS1 = 1 

19501 a ALSO CHECKS THAT THERE ARE NC BITS STUCK AT 1 IN RHDS! 

10503 

C504 041422 200000 PCISR: 0 :PC OF JSR 

10505 41424 011637 941422 CHECK: MOV (SP) QePCISR  ;SAVE PC OF JSR+4 

10507 041430 ococo4 941422 SUB 4 akPCISR :GET PC OF JSR 

10508 041436 011346 MOV tay SP} GET RHDS1 

19509 O41440 052716 000100 BIS #VV; (SP) ‘DONT CHECK VY BIT 

19510 041444 000406 BR CHECK ‘GOTO COMMON CHECK ROUTINE 

10518 py 011637 04422 CHECKT: MOV (SP),d8PCJSR  ;SAVE PC OF ISR 4 

1051 1 162737 900094 o41422 Sus #4, JAPCISR :GET PC 

i0s14 O4146G 9 O11346 MOV JR3,-(SP) :GET RHDS1 & Bo VV CHECK AT 3 
10516 041462 011146 CHECKC: MOV -(SP) :GET CS1 

10517 py iHed Over 16 173577 BIC Vea (SP) :CLEAR UNWANTED BITS 

10818 1470 726 O042C0 CMP #DVAIRDY, (SP)+ sRHCS1 SHOULD HAVE DEVICE AVAILABLE 
10520 041474 001402 BEQ 3$ BRANCH IF rT DOES 

10521 941476 011137 001122 MOV JR1,a8$BDADR § ;BAD DATA REGISTER (RHCS1) 

10Se2 O4:s02 104061 ERROR 61 ;RHCS1 DID NOT HAVE DEVICE 

10523 ‘AVAILABLE RIGHT AT THE START 
10524 | ‘ALL OTHER BITS SHOULD BE O 

ipese O41504 042716 102000 33: BIC WATAILBT, (SP) ;CLEAR UNWANTED BITS 

10527 041510 O2e726 010700 CMP #MOL!DPRIDRY! vv, {SP)+ ;:RHDS! SHOULD HAVE THESE SET 
10528 041514 901404 BEQ 75 : BRANC 

10529 041516 011337 o01122 MOV 3R3,a8S8DADR  :BAD DATA IN REGISTER (RHDS1) 
10530 O41522 104062 ERROR 62 *RHDS1 HAS SOME BITS OTHER 

10531 THAN MOL DPR, VV SET 

10532 SALL OTHER Bir SHOULD BE O 

10533 41524 000207 RTS PC :RETURN TO TEST AND HALT/CONTINUE 
10534 ;DEPENDING ON WHETHER THIS IS A 
10536 "FATAL" ERROR 

10537 941526 062716 O000G6 73: ADD #6, (SP) sADJUST STACK TO JUMP OVER-HALT IN TEST 
10538 94i532 500207 pc RETURN TO THE TEST AND CONTINUE 


PERS Re, 
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JAM CURRENT CYLINDER ROUTINE 


é 


Sees 
st 
a 


140886 041624 


140530 OO4GEY 


i 


SAVER: 


1S: 


;*THIS IS A SUBROUTINE TO SAVE REGISTERS 
:#IN THE REGISTER TABLE TO ANY LOCATION 


nie 
¢ 
r 


1 ALUAY 
T ALWAY: 


TE 


RO d#SAVER 


Se 


Bae 
SavRE 


Dom oe We a - Dw 
Sgageozaaae 


NT IS TO BE re THE RPOY VECTORS TO “TIME 1” 
PROCESS OR IS 4 

TRAPS MUST BE 6 
OF RPOY INTERRUPTS IS 7 


aPCL 
Cte TR QenAlTTH :GET TIME. ON 


RHC Go ghee 
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R OF WORDS SAVED 





;;PUSH Ri ON STACK 
so Re ON STACK 
Bron PUSH R3 ON STACK 


NUMBER 
;SAVE REGISTER CONTENTS 
; COUNT 


;BRANCH_IF NOT DONE 
;;POP STACK INTO R3 
;;POP STACK INTO Re 
;;POP STACK INTO Rl +s 






STOP THE CLOCK 
3 ¢ N GRRENT CYLINDER 
; RETURN #0 WAIT P OR WAIT.T 






mn 
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10594 ;#THIS IS A WAIT LOOP WHEN AN EVENT IS TC BE TIMED 

itese "THE CALL IS 

1 3 : ;ABSOLUTE REGISTER ADDRESS 

10598 7 8 ‘BIT WAITED FOR 

10599 :* TA : TIME ALLOWED GIVEN IN~10 MICROSEC 

10600 i TO ;TOLERANCE PLUS/MINUS IN 10 MICROSEC 

Bes #RI-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS 
10603 *#RO-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS 

19604 :#MINIMUM TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS 
ie FOR THE SLOWEST PROCESSOR 

1 1616 ITPC: O WAT PC 

10608 1629 9000 WAITRE: 0 *WAIT ON REGISTER ADDRESS 

1 1 0000 WAITBT: O :WAIT ON BIT 

10610 041624 000000 WAITTM: O sWAITED TIME 

1061 1626 O05037 041624 WAIT.P: CLR DaWwAITTM iCLEAR WAITED TIME 

1061 1632 140510 CLR UPCLBUF ;CLEAR COUNT SET BUFFER 

1061 1636 OL 000021 140590 MOV:  #GO!BIT4;@PCLCSR ;COUNT UP, 100 KHZ, START CLOCK 
10614 OvieHs 1 MOV RO, -(SP) ;:PUSH RO ON STACK 

Imig Guless flae my euiceges Hiab ta 

{pets pai BeD stat MOV RS =(25} : PUSH 8S ON aT eek 

10618 O41654 016600 op0010 MOV 10(SP) .RO *RO HAS ADDRESS OF NEXT LOCATION 
10619 pH i1660 019937 161 MOV RO, I#WAITPC "NOW WAITPC HAS WAT PC +2 

1 1664 162737 041616 SUB #2’ JWAITPC :WAT PC IS IN WAITPC 

10621 041672 013037 041620 MOV 3(RO)+, 8WAITRE :WAIT ON REGISTER ADDRESS 

1 pvig7e bie” 041622 MOV (RO)+,aaWAITBT WAIT ON BIT 

1 ! 12001 MOV (RO)+;R1 *R1 HAS TIME IN 10 MSEC 

10624 gyi 704 01c00e2 MOV (RO)+) Re *Re HAS TOLERANCE IN 10 MSEC 
1062s 1706 O10066 000010 MOV RO, 10iSP) RESTORE RETURN ON STACK 

10627 #THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS 
10628 O41712 013703 o42064 V DSTIMCNT, RS :R3 IS A TEMPORARY COUNTER 
10629 O41716 033777 O4i622 177674 1S: BIT J#WAITBT, IWAITRE 1S REQUIRED BIT THERE 

10630 oui 7e4 001995 BNE 4g ;8R S 

10631 041726 905. DEC R3 ;COUNT IF REQUIRED BIT NOT THERE. 
10632 041730 001372 1$ 
10633 OuI73e 013703 042064 JSTIMCNT, RB ; TEMPORARY COUNTER 

1 17 O41622 177654 2S: BIT JHWAITBT: WAITRE :IS REQUIRED BIT THERE 

10635 041744 001015 4S ;BRANCH IF YES 

1063 Bate Ooea03 DEC RS ‘COUNT IF REQUIRED BIT NOT THERE 
10638 B73 017739 177642 001126 MOV DWAITRE,aeSBDDAT ;REGISTER CONTENTS FOR TYPEOUT 
10639 0417; 777 000100 1403!e BIT #IE, JRHCS1 ;O1D ANY INTERRUPT OCCUR 

10640 O41 1402 BEQ 3$ :BRANCH IF YES 

1064 1 104001 ERROR 1 ?RPOY DID NOT INTERRUPT 

1064; l 27 BR 4} : QUT 

10643 041774 10400e 3S: ERROR 2 ?RPOY INTERRUPTED BUT WAITED 
10644 : :O0N BIT DID NOT CCCUR 

1OB4S : “EVEN AFTER TWO COUNT DOWNS 
10646 FROM 177777 TO O 

10647 941776 oDD4es BR 7g : OUT 
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JAM CURRENT CYLINDER ROUTI 


i "te Teguise Anas STER CONTENTS FOR FOR TYPEOUT 
ERROR 3 Heer BIB vox BND ONE HOV 
gp 


$OF THE WAITED ON ON BIT SETTING 


re 


Ss: R :R1 NOW HAS LIM T OF TIME 
aMe SaUALTTN, RI ?FOR 6900 RESUL ee tin 
smut Be GREATER br EQUAL 
BHIS 6§ F GOOD 
ERROR 4 ioe DI ~OgcuR BUT TIME 
S BELOW LOWER LIMIT 
BR 7$ 
6S: ADD Re, Re oes T 
ADD Re.R1 ‘RI NOW Hos. GEPER LIMIT OF TIME 
CMP Rl; ISWAITTM ;FOR GOOD RESULTS, WAITTN 
nee Se sMUST BE $5,0R EQUAL TO RI 
ERROR 4 T OCCUR BUT TIME TAKEN 
a“ AL BID, occu, A 
. Nov (SP )+,R3 + sPOP STACK INTO R3 
MOV (2p)3°Ri : {pop Pop STACK Mo Bi 
MOV (SP)+°RO ::POP eTAck INTO Ro 
RTI :RETURN TO MAIN TEST 


;*THIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILABLE 
;#NO TIMING IS DONE 


+ a ; ABSOLUTE REGISTER ADDRESS 
ti 8 :BIT WAITE) FOR 
:% TA STIME-NOT USED HERE 
3 TO ‘TIME-NOT USED HERE 
-*R3-IS A PIENPORARY COUNTE 3 
TIMCNT: 177 ;COUNT FOR WAIT LOOP 
WAIT.T: .. 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV R3,-(SP) >:PUSH R3 ON STACK 
MOY 4(SP) RO RO HAS ADDRESS OF F NEXT LOCATION 
MOV RO, aWAITPC *WAT PC +2 IS IN WAITPC 
SUB #2, J8WAITPC “WAT PC IS IN WATTPS 
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R ROUTINE 


MOV a(R0)¢ asuAt TRE sWAIT ON REGISTER ADDRESS 
MOV 1+, d9A ;WAIT ON 

oMP R 1+ (RO)+ UMP NEX WORDS-TA, TO 
MOV RO. 4 SP) : RESTORE RETURN ON STACK 


sRTHIS HAS THE TWO COUNT DOWNS FROM 77777 
MOV JBTIMCNT,R3 sR3 HAS TEMPORARY COUNT 
BIT QaWAITRT aWAITRE :1S REGUIRED BIT THERE 
ENE ut BRA H IF YE 


DOE 


Bee 7 :COUNT IF REQUIRED BIT NOT THERE 
MOV JeTIMCNT,R3 ;SECOND COUNT pou FROM 177777 
SIT aeWwAITST, gwAry TRE’ 32S iE es” THERE 

BNE 4$ ae FF ate 

DEC R3 : COUN I PEOCIRED BIT NOOT THERE 


25 
MOV S81 TRE 2eSBODAT REGISTER CONTENTS FOR TYPEQUT 
Bit si VaRHES | 08 ar INTERRUPT OCCUR 


BE H IF YES 

ERROR | *RPOY DID NOT INTERRUPT 

“if ya BIT DID NOT OCCUR 

SN s 

ERROR =D ‘Reo INTERRUPTED BUT 
‘WAITED ON BIT DID NOT OCCUR 
EVEN OFTER TWO COUNT DOWNS 
:FROM 177777 10 0 

8 S$ : OUT 

-*B8IT DID SET SO CHECK IF INTERRUPT OCCURED 

NOP sALLOW TIME FOR INTERRUPT 

ey HIE, BRHCS! 31D AN BN INTERRUPT Occur 

MOY SHATTRE, QeSBD0AT" jks ites coiTENTS FOR. TYPEDUT 

ERROR NTERRUPT DID NOT OCCUR 
s INTE BF TER ONE SNE OF 

. : THE WAITED ON BIT OCCURING 

ss cs 30 

MON (SPi+,82 ::POP STACK INTC R3 

Moy (§P 34°80 -:P5P STACK INTO RO 

ST? :RETLEN T) MAIN TEST 
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bE _—— REGISTER SAVED VALUE + 
C 


:* JSR RO, J#CHREG 

3* ~ ;REGISTER TO BE CHANGED 

;* NUMBER OF ae TO BE _ CHANGED 
Jn NEM :NEW VALUE OF BIT MUST 3E C CRl 


POSITION OF BIT TO BE CHANGED 
NEM aNd P WILL BE REPEATED N NUMBER OF TIMES 


ts 
eHREG: 
MOV R1,-<SP) :;PUSH RI ON STACK 
MOV Re’ -(5P) PUSH R2 ON STACK 
MOV (RO)4+,R1 ay HAS ADDRESS OF ADDRESS OF REGISTER 
MOV (RO)+,Re :R2 HAS NUMBER OF CHAN 
Sua BRHWC’ RI °RI1 HAS OFSET OF REQUIRED REGISTER 
1$ TST (RO}+ :IS A BIC OR A BIS 10 BE DONE 
BE 23 ;BRANCH IF A BIC IS REQUIRED 
BIS (RO)+,SAVERE(R1)':SET REQUIRED BIT. 
SR ;BRANCH TO DECREMENT COUNT 
23: BIC (RO}+, SAVERE(R1)’:CLEAR REQUIRED BIT 
38: DEC R2 :DECREMENT NUMBER OF CHANGES 
NE 1$ :BRANCH IF NOT COMPLETE 
MOV (SP)+,Re :3POP STACK INTO 
MOV (SP)+:R1 “POP STACK INTO R 
7S RO SAETURN TO MAIN PROGRAM 
-#THIS FILLS A BLOCK WITH INCREMENTAL DATA 
:'CALL IS 
a JSR RO, JeF ILL 
7% F 
1 N NUMBER 9 OF WORDS 
:* S :$7a EFINe, VALUE OF DATA 
:# I : INCREMENT DATA BY 
FILL : 
OV R1,-(SP) ::PUSH R1 ON STACK 
MOY Ro. -(5P) ::PUSH Re ON STACK 
MOV R3.-(5P) ;;PUSH R3 ON STACK 
MOY RY: -(SP) “PUSH R4 ON 
MOV (RO)+,R} :Al AAS RODRESS GNERE DATA IS TO 39 
MOY (RO)+:Re :Re HAS NUMBER OF WORDS TO BE FILLED 
MOV (RO) +, R3 : STARTING VALUE OF BATA : 
MOY S INCREMENT 
- #NOW pata rier BE Friuek. 
13: hoy R3, (R :FILL DAT 
ADD Ra’ Ra :GET NEXT “aL OF CATA 
DEC 2 :DECREMENT COU 
BNE ;BRANCH IF ALL Not DONE 
Mov (SP)+,R4 :: BOP STACK INTO RY 
MOV (5P 4°32 ::POP Stack INTO R23 
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ins RiESeS | S45558 RTS RD SRETURN TO MAIN PROGRAM 
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M CURRENT CYLINDER ROUTINE 


THIS IS_A SUBROUTINE TO COMPARE REGISTERS 
008 DATA IS ALREADY SAVED IN “SAVERE’ 
;#TEST DATA IS IN THE REGISTERS 


:#CALL “ 
SRO, BUCOMREG , 
:* SAVERE ;G00D_DAT 
:* RHCS1 ; ADDRESS oF ADDRESS TEST DATA 
:* N. ;RET! URN FOR ERROR 
18 SRETURN FOR SOCD COMPARISON : 
HON RETURN ITH ERROR. “soope7" AAS God DATA, "SEOURT™ AAS GRO OATA 
REGADR’ HAS REGISTER ADDRESS 
COMREG: 
MOV R1,-(SP) ss EURH R! ON STACK 
MOV sR, - (SP) PUSH Re ON STACK 
MOV RB, = (SP) SIPUSH R3 ON STACK 
MOV RY = (SP) ; PUSH STACK 
MOV RS" =(5P) PUSH RS ON STACK 
MOV (RO)+,R! :R1 HAS ADDRESS OF GOOD DATA 
MOV (RO)+;Re :Re HAS ADDRESS OF ADDRESS OF TEST CATA 
MOV (RO)+°R3 :R3 HAS NUMBER OF WORDS 
MOV (RO}+ Re :R4 HAS RETURN FOR ERROR 


MOV :RO HAS RETURN ON NO ERROR 
- #NOW save OREGTSTERS 


SSR PC J#PLUTREG :SAVE REGISTERS 
MOVB SuSAVERE “eS, J8AS+1 : MAKE UPPER Sy BYTE OF RHAS SAME 


MOV "pAESET 
* #NOW COMPARES WILL MADE’ 
18: AoD 82,85 s INCREMENT TO INDEX 


CMP trie, (R234 : COMPARE REGISTER CONTENTS 
BES 23 RANCH IF GOOD 
MOV =(R1}, QeSGODAT ISAVE GOOD DATA 
MOY -(R2) aeS$8D0AT :SAVE BAD TA 
MOV RHWC (RS), S8REGADR AVE ADDRESS OF FAILING RESISTER 
ISR PC, aR4 SE eRnt is" MAIN PROGRAM 
CMP (RL)+, (RB) {UNDO = CR ; BND -(R2) FOR ERRORS 
MOV 2SWR, - (SP) :GET suiten H SETTING 
BIC BICEQO, | (SP) :KEEP ONLY SWITCH 7 AND 8 
CMP #SWO7, {SP)+ :I$ 7 SET BND 3 DOWN 
BEG 3 :BRANCH OUT IF YES 

2s: DEC R3 SARE ALL WOMPaRES DONE 
BNE 1$ :BRANCH IF NOT COMPLETE 

33: 
MOV (SP)+,R5 ::POP STACK INTO R5 
MOV (SPi+: my :;POP STACK INTO R4Y 

(SP )+:R3 ::POP STACK INTO R3 

MOY! (§P)+°R2 ::POP STACK INTO Re 
MOV (SP)+.R1 “POP STACK INTO Ri 
RT RO RETURN TC MAIN PROGRAM 
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3088” 42506 code 43: WORD 9 : TEMP STORAGE 
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DzaJIAPLi Tah SURSENT SYLINDER ROUTI 
10 
19869 
10861 :#HERE IS Q DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR. WORKS. 
19362 :2ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET 
13853 :#PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 
i53és : HHHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
13856 :®THE PROGRAM GOES BAC KT 0 CON BE CHANGED. 
1986? : THE RESTRICTIONS TO TO T T WHERE THE PROGRAM CAN GO ARE: 
158s 141. I must BE WITH IN THe, ir UNDER CONSIDERATION 
10869 :#2. LOOP ON ERROR SWITCH MUST BE SET 
39379 . :#3. _THE ERROR MUST OacuR WITHIN THE TEST UNDER CONSIDERATION . 
10873 :#IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
15873 :#THE PROGRAM WILL REV ERT ERATION. HOWEVER, IF LOOP ON 
13873 :¥TEST SWITCH IS SET AND “THTS OPERATOR SELECTABLE SCOPE LOOP TS USED 
10875 :*THEN THE PROGRAM WILL LOOP SACK TO THE SELECTED POINT WHEN IT 
gers : #CONES TO THE END OF THE TEST UNDER CONSIDERATION 
iDa7? SOFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH 1s PUT DOWN THEN 
10578 [#NORMAL OPERATION WILL CONTINUE. 
4 
19880 o42519 scoc0c TESTAD: O :FIRST ADDRESS OF TEST 
10881 42512 OPERSEL: 
19882 942512 005037 177776 CLR PS MAKE PROCESSOR STATUS ZERO 
10883 e516 012737 177777 O4S760 MOV 8-1, I8PRITEM CER PREVIOUS. rTEN NUMBER 
10884 0420534 104409 42532 TYPE 66$ TYPE ASCIZ STRING 
10385 042530 OOc4e: _ BR BMS :GET OVER THE ASCIZ 
10896 -:65$: .ASCIZ <15><12>/THE protic WAS IN TEST NUMBER 
10887 o42574 643: 
19888 0429574 O1374e OD46O4 MOV asTSTNM, -<SP} :GET READY TO TYPE TEST 
19889 42600 104401 . _ TYPOC MBER 
19890 42602 104490 o4z2610 TYPE 675 TYPE ASCIZ STRING 
19891 O42606 000414 aR b&$ 'GET OVER THE ASCIZ 
10892 “67S: .ASCIZ <15><12>/THE ee BACK Pc WAS / 
10893 42640 ite: | 
15894 O426849 O13746 001110 MGV QeSLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
10ees O4ce44 10440) TYPCC 
9897 O42652 194400 O45660 TYPE 59$ s;TYPE ASCIZ STRING 


0898 042656 000430 BR 8$ OVER THE ASCIZ 
33 3g09S: .ASCIZ <15><l2>/SET surtin FOR LOOP ON ERROR OR LOOP ON TEST- 


10896 O4e64G 104400 901223 TYPE  ,SCRLF 
1 
108 
10960 942740 ‘ bos: 
16991 O42740 104400 o4274e TYPE 71 ;;TYPE ASCIZ STRING 
| 22902 42744 00430 BR 708 jiGET OVER THE ASCIZ 
| su3u3 2713: .mSCIZ <iSe<ie> TYPE THE FIRST FC OF The TEST TO GE LOOPED oN’ 
| 10304 043 445: 
10995 943026 104400 042034 TYPE 738 TYPE ASCIZ STRING 
| $5996 943932 doo4e2 oe ?2$ ‘GET OVER THE ASCIZ 
| 1530 gu738: .ASCIZ << i5><12>/ sia BY A CARRIAGE RETURN - ’ 
10308 042100 ?2$: 
| 10869 943100 194411 RDOCT 
15919 943102 O€271— ococoo2 ADD Bz, (SP) ;GET LPADR 
| 30911 S43106 012637 CO1106 MOV (SP )+, asSLPAOR 
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RJIA.Pil JAM CURRENT CYLINDER ROUTI 
440g 043120 TYPE, 758 s;TYPE ASCIZ STRIN 
E ago ° BRM Te nek tHe nec TZ 
gjg8: -ASCIZ <18><12>/TYPE THE'PE WHERE YOU WANT? 
2 4400 O4a164 a ee OR: <a ;;TYPE ASCIZ STRING oe 
O44e code Bans, OVER THE ASCT celal 
» jgrS: | -ASCLZ 1S) <12>/ THE prdikan TO LOOP BACK TC FOLLOWED ay A C ena ras 
4 10941!  ——«sRQOCT 
Sizo3r 901110 NOV” {SP)*,9SLPERR GET LPERR 
ve O1s745 OOLICS Mov LPADR, =(5P) 
276 360002 RTI 
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CONT. TST 
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;*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
:#IN MEMORY LOCATIONS TAGED FROM “WC” TO “ECe™ 


p®THIS IS DONE SO THAT COMPARES ARE DONE WITH ee LOCATIONS 


:#AND NOT THE REGISTERS THEMSELVES. THIS WIL 
;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


043390 PUTRES: 


643300 919046 MOV RO,-(SP3 ; PUSH RO ON STACK 
3302 O10146 MOV R1,-(SP) ;sPUSH Ri ON STACK 

043304 9O!0e46 MOV Re. -(5P) : Re ON STACK 

043306 O12700 902272 MOY aRHWC RO AT ORTING ADDRESS OF REG 

043312 012701 9023S4 MOY Ri :ST BRT ING ADDRESS OF WERE SAVED 

043316 Ole7B2 Sod022 MOV SARC RHUC+, ‘2,R2 -NUMBER REG. INTO Re 

943322 013021 198: MOV a(RO)+, (R1)+ “SAV VE EB ROWARE. Bi 

043324 905202 DEC R2 

043326 001375 NE 

043330 012602 MOV (SP)+,R2 : POP STACK INTO R2 

043332 O12s01 MOV (SP)+'RI P STack INTO RI 

943234 912690 MOV (SP}+°RO SBOP STACK INTO RO 

943336 000207 RTS 


:*THIS IS A DATA COMMAND SETUP SUBROUTINE 
; *THE an, ae 


. RO, J#RUN 
: C : CYLINDER 
:*.BYTE § s SECTOR 
:*.BYTE T RACK 
i “il :WORD COUNT 
x ?BUS ADDRESS 
ti Bar BUS ADDRESS INHIBIT 
ie FMT22!ECI! HCI :FMT22=1 =16 BIT WORDS 
+ ‘ECI = ECC CORRECTION INHIBIT 
:% “HCI = HEADER COMPARE INHISIT 
* i COM ; COMMAND ADDRESS 
943340 912077 136746 PUN: MOV (RO)+, JRHCA CYLINDER 
043344 012077 136734 MOV (RO)+; JRHDST ; DESIRED SECTOR/ TRACK 
012077 136716 MOY (RO)+, JRHWC WORD COUN 
043354 012077 136714 MOV (RO)+, JRHBA *BUS ADDRES gs 
013746 OO4716 MOV DeUNIT, -(SP) :GET UNIT NO 
043364 O52016 ; BIS (RO)+, (SP) SET BUS ADDRESS INHIBIT 
043366 012677 136704 MOV (SP)+;dRHCS2  :UNIT NO A TO RHGS2 
043372 012077 126712 MOY (RO)+; JRHOF tonne, ECC ¢ INHIBIT, HEADER 
043376 013077 136676 MOY 3(RO)+,QRHCS1  ;COMMAND’ 14 HCS1 
o43402 000200 R RETURN TO MATN PROGRAM 
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;*THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 
;*R1 HAS we DATA BUFFER poten Ey 





MPARED 
THAN NUMBER OF WORDS TO BE COMPARED 


;ADDRESS OF Oe pare 
ADDRESS OF TEST DAT 

;NUMBE® OF WORDS TO 8 COMPARED 
RETURN ON ERROR 

; RETURN ON NO ERROR 


DATA BUFFER 
Q BE COMPARED 


N RROR 
;RETURN ON NO ERROR 
;NO OF WORDS TO BE COMPARED 
;FOR ERROR WORD NO 
;COMPARE GOOD WITH TEST DATA 
BRANCH IF GOOD 


;G00D DATA 
; BAD DATA 


WORD NO. 
RETURN TO PRINT ERROR 


:UNDO -(R1) AND -(R2) FOR ERRORS 


;GET SWITCH 

sKEEP ONLY SWITCH 7 AND 8 
31S 7 SET AND 8 RESET 
BRANCH OUT IF YES 

; COUNT 

BRANCH IF ALL NOT DEVICE 


3 3POP STACK INTO - 
;POP STACK INTO 

: POP STACK INTO Ra 

;;POP STACK INTO Re 

;;POP STACK INTO R1 


:#Re HAS TEST DATA BUFFER ADDRES 
5 #RS HAS ADDRESS OF RETURN ON ERRO 
s#RS HAS NUMBER OF S TO BE CO 
-*#R4 HAS ONE MORE 
s;*CALL IS: 
i JSR RO, J8COMPAR 
:* ; 
3# N 
:% RE 
;# RG 
COMPAR: 
MOV R1,-(SP) 
MOV Re, -(5P) 
MOV R3,-(S5P) 
MOV RY; -(SP) 
MOV RS; -(SP) 
MOV (RO)+,R1 
MOV (RO)+; Re 
MOV (RO)+:R3 
MOV (RO)+°RS 
MOV (RO). RO 
MOV 3,R4 
INC 4 
1S: MOV RY Q¥ERWORD 
CMP (Rh) +, (Re 
BEQ 
MOV (RL), JaSGDDAT 
MOV (Re): J8SBODAT 
SUB R3, JaeRWO RWORD 
JSR PC’ ORS 
CMP (R1L)+, (R2)+ 
MOV aSWR, -<SP) 
BIC #0600, (SP) 
CMP #SWO7, (SP)+ 
BEQ 35 
23: DEC R3 
BNE 1$ 
33: 
MOV (SP)+,R5 
MOV (SP)+°R4 
MOY (SP)+°R3 
MOV (SP)+'R2 
MOV (SP)+:RI 


ee ee ee mn ne ne ee een ee 


in? 
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oe «ee ee Cs ewe o- See eee aaa Se ee a a a eS ee ee ee a ee Sk ee a. 


MAINDEC=11-DZRII“A, RPOW/5/6 FUNCT. CONT. TST-PT 1 MACYI1 27(655) 30-NAR-75 22:59 PAGE 235 SEQ 0295 
DZAJIA.P11 JAM CURRENT CYLINDER ROUTINE es : Pad 
11035 943520 000200 Ris RO ;RETUPN TO MAIN PROGRAM 
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THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 


ADDRESS F 


GRADUA SS aa SoeE eae Se 
@ 


FESe 


- 


a bas ae Fae en Bae be Be Bo Fw Be Fe Be Fe Be Bo Bae ne be Bn pee Bae Bae Be ne ae 0 2 Bn Pane a me Ben bas Fme Paw ban Be Pe ne Pe B= bo Be be bo Pe hae Po Bas Pe ne pe Be 


os he he he he Be an Be ae ee ee he Bs be he be bb bo Bo 0 Be be 2b 0-0 b= 0 be bo bo be 8 fo 8 bo ho he bs ho ae pe ee 


BERREERES Ia tool sans 


® 
wo 





OM 176700 TO ANY TYPED VALUE 


65$ 3; TYPE ASCIZ STRING 
4$ ;,GET OVER THE ASCIZ 
<15><12>/PRESENT BASE ADDRESS OF REGISTERS IS / 


JeRHCS1,-(SP)  ;GET READY TO TYPE OLD BASE 
67$ 3; TYPE ASCIZ STRING 
6S ?:GET OVER THE ASCIZ 
(15><12>/TYPE NEW’ BASE ADDRESS FOLLOWED BY ’CR’ -/ 


PC, d#STKINT ; INITIALIZE THE TTY KEYBOARD 


#RHDB, RO ;GET STARTING ADDRESS OF REGISTERS 
#20. Ri : R OF REGISTERS 
#4077, (RO) :CLEAR OLD BASE 
(SP), (RO)+ :SET NEW BASE 
Rl : COUNT 
1$ *BRANCH IF 20 NOT DONE 
69S +: TYPE ASCIZ STRING 
T OVER THE ASCIZ 


68S 33GET OVE ; 
<15><12>/PRESENT VECTOR ADDRESS IS / 

QWRPVEC,-(SP)  ;GET READY TO TYPE OLD VECTOR ADDRESS 

71$ ;; TYPE ASCIZ STRING 


0§ :GET OVER THE ASCIZ 
<15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY “CR” / 


(SP)+,dRPVEC  ;SETUP VECTOR ADDRESS 
735 TYPE ASCIZ STRING 
2S :GET OVER THE ASCIZ. ° 
<15><12> RESTART PROGRAM FROM 2CO OR 2107 
755 :;TYPE ASCIZ STRING 
ous *:GET OVER THE ASCIZ 
<15><12>/NEW BASE WILL REMAIN - / 
QeRHCS1,-(SP) 

:;TYPE ASCIZ STRING 
6 *:GET OVER THE ASCIZ 
¢15><12>/NEW VECTOR WILL REMAIN - 7 
JRPVEC, -(SP) 


795 :; TYPE ASCIZ STRING 
9$ ::GET OVER THE ASCIZ 

















NO?7. pul 
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T CYLINDER 
ost 306 i “ASCIZ <15><12>7 / 

044314 1 ; — 
ig Rad a a eee 
Lose Bue ocooco * weet 
HB : 


rn 
Te 
2 
s 


gc 
=. 


Oo 
v7) 


MB IRRLEES 


(fee -€3.090~ 3 


6-0-6 


o4 
544355 


nw4uoe 
B444Cz 


Base 
Ba44ie 





i RPCY $6 FUNCT 


CURRENT SVLINOER “Boutin 
pL RRRRAPRRPRRERA REALE RES PRE REAR REE DELS LELE LEADS SSSSEEPESLSSS SSS 


LO4400 44360 
B50413 


LOS4O1 "2 
Sie? C44 
RS5AAS 
www ww 


Go 


he 
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65 + Tipe ASCIZ STR I 
’TRAPED FROM FC = 


E FROM PC 
#RPVECT, IRPVEC RESTORE. TRAP RPO VECTOR 
CHANGE TO CONTINUE 


1s pagutnentiohiahenniieaadeioamianddalansastnmnaanasnanieint 
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DIRIIS.P 11 scAPE HANDLER ROUTINE 
tit1s .SBTTL SCOPE HANDLER ROUTINE 
111g 5 RERRRELERERELES HER ERAELAREEAR ELS EARLE ES ELAS AA EERAE AES ELAS EASE ES 
Lit? :ETHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
L118 : FOND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY PEG. (0: SEpay’?: 9} 
11119 :#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
ite eT suitor OPTIONS FR PROVIDED SY THIS ROUTINE ARE: 
es 4= 
11122 :#SWil=l iNet ITERATIONS 
11133 :#5WO9=1 LOOP ON ERROR 
11134 ;#SWOS=1 Coop ON TEST IN SWR«7:0> 
Liles SRORLL 
12188 :% SCOPE :;SCOPESIOT 
Lii38  S44414 $SCOPE: 
ilies Beyyls rons CKSWR TEST FOR CHANGE IN SOFT-SWR 
13130 Se44ig O3e777? o4C0Gc 134514 i$: SIT #81714, aSWR $ LOOP ON PRESENT TEST? 
T1131 44824 O8f111 SNE SOVER YES IF SW14=1 
11132 , jaeeeeSTART OF CODE FOR THE XOR tistéRsssae 
11133 OM4426 ODO4IE $xTSTR: BR es IF RUNNING ON THE “XOR" TESTER CHANGE 
11134 tITHIS INSTRUCTION TO A “NOP <N NOPzE4) 
T1135 O4443G 013746 ocnco4 MOV DBERRVEC,-(SP) 3:SAVE THE PEOTENTS OF THE ERROR VECTS 
13236 044434 912737 ode oococ4 MOV aS$.a8ERRVEC  ::SET FOR TINEOY 
11137 “Owa442 005727 177060 TST 38177080 ¢3 TIME OUT obR? 
11138 O444H4g 912637 paaes MOV ‘SP}+, JBERRVEC RESTORE THe ERROR VECTOR 
ilis$ d44452 000463 ’ es $SVLAD $360 TO THE NEXT TEST 
T1189 S444s4 22626 cS: C (SP)+, (SP)+ :CLEAR THE Crack” AFTER A TIME OUT 
Tii41 44456 012537 oc0004 MOV (SP) +; O8ERRVEC : |RESTORE THE ERROR VECTOR 
ili4e O4s4é2 000423 | 3R 7 LOOP ON THE P RESENT TEST 
iliss C448464 6$:;aeBBBEND OF CODE FOR THE AOR ‘eeteReees 
| irls4 O444E4 032777 OOC4OD 134446 BIT #81708, ISWR $ LOOP <ON SPEC. TEST? 
1L1i4S O44472 GO1404 BEG NO 
11i46 S44474 127737 134449 001192 CMPB 4s SW, STSTNM :0N fe RIGHT TEST?  SWR\7:0> 
111s? OM4ysoe O01462 BES SOVER FY 
TiisS Ow4S04 195737 01:02 >t: TSTB = SERFLG : HAS aN YEGROR OCCURRED? 
1114S O44Si0 O01421 BEQ 35 F 
$1758 44512 123737 001115 001103 CMPB = SERMAX, SERFLS tiMAX. ERRORS FOR THIS TEST OCCURRED? 
| T3151 O44520 Idiois BHI 38 33 
iiis52 O44522 033777 901090 34410 BIT #81709, 2SWR ::LOOP ON ERROR? 
LIIE3 O44530 901494 EO 4 ::6R IF N 
12154 644532 913737 O01110 cOoL1oS 78: MOY $LPERR,S$LPADR ::SET LOOP ADDRESS TO LAST SCOPE 
1115s 44545 900443 QR SOVER 
| Ti1SE O44s¥2 195037 0901103 4: CLRB ss SERFLG 33ZERO_ THE ERROR FLAG rae 
| Lii57 SH4546 005037 6OO12i2 éLR STIMES :CLEAR THE NUMBER OF LTERATIONS TO MAKE 
| Tlite oassse Joos aR 1$ PTESCAPE TO THE NEXT TEST 
1135S 844554 632777 oo4000 134256 23S: BIT #BITL1, ISWR : INHIBIT ITERATIONS? 
Tile S44Se2 001011 BNE -BR IF YES 
| TII1 O44554 005737 oO1100 TST SPASS IF FIRST Pass OF PROGRAM 
( $363 44570 901406 BEQ 1$ INHIBIT IT ERAT IONS 
| $3363 O44572 005237 901104 INC Stent : INCREMENT ITERATION COUN 
i TH64 G4¥576 023737 OOl2l2 001104 CMP STIMES, ICNT : CHECK THE NUMBER OF UNA TIONS MADE 
| Tiles O44604 02021 GE $0: /ER sBR IF MORE ITERATION REQUIRED 
| T1TGE O4465€ 912757 900001 001104 18: MOV 1, $ICNT ‘TREINITIALIZE THE ITER ATION COUNTER 
| Site? Se¥614 013737 44664 901212 MOV SHCnY STINES ::SET NUMBER OF ITERATIONS TO DC 
| 


‘Seeueeresres en ne ce er et rt cc NE SE 
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DIRIIA.Pil SCOPE HANDLER ROUTINE 
12188 O846e2 105237 291102 SSVLAD: INCS STSTNM ;COUNT TEST NUMBERS 
11:83 RU tPES Btls hd Bat ioe MOV (SP), SLPADR SAV E SCOPE LOOP ADDRESS 
ilLe 46 11637 OO111 MOV (SP) SLPERR 5s 2AVE . OR LOOP ADDRESS 
iiizl $36 005937 panes CLR SESCAPE 7; CLEAR THE ESCAPE FROM ERROR ADDRESS 
titre O4464e llers? 080081 09:175 MOVS #1, SERMAX ;ONLY ALLOW ONE(1) ERROR on NET TEST 
31273 O44S50 Cla7v7? 901:02 is4264 SOVER: MOV STSTNM, JDISPLAY :;DISPLAY TEST NUMBER 
Lii7% O44656 013716 001106 MOV SLPADR, (SP) : sEUOGE RETURN ADDRESS 
1217S O44662 900002 ATI sFIXES PS 
2ii7S OM4654 JOCUL4 SMXCNT: 4 MAK. NUMBER OF ITERATIONS 


ere ae nee = 
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OCRIIA.PL1 CONVERT SINARY TO DECIMAL AND TYPE ROUTINE 





ta 





Lit? .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
111793 : gry yn rapt ar gti wf 
11180 s THIS ROUT INE 1S USED TO CHANGE At eT BINARY N NUMBER TO, A S-O1GZT 
11181 :®SIGNED DECIMAL (ASCII) NUMBER AND aUEPEN oI NG ON WHETHER FHE_ 
11132 #NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WIL BE TYPED 
11183 :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING SEROS MILL ALWATS BE 
11183 t #REPLACED WITH SPACES. 
1itgs i Nov NUM, =< SP) ;3PUT_THE BINARY NUMBER ON THE STACK 
1318 :# TYPDS 3;G0 TO THE ROUTINE 
21189 o446%5 $TYPOS: 
11180 44665 910046 MOV RO,-( SP) ;;PUSH 80 ON STACK 
11191 44670 919145 MOV R1,-(5P) :;PUSH R1 ON STACK 
11183 44672 810246 MOV Re,-(SP) :;PUSH RB ON STACK 
11193 O44E74 «C1034 MOV R3, -(SP) :;PUSH R3 ON STACK 
i114 O44676 10546 MOV *=(5P) :;PUSH_RS ON STACK 
11195 O44790 Ole746 920200 MOV 120200, -(SP)  ;;SET BLANK SWITCH AND SIGN 
i118 944704 O1S695 099020 MOV =. 20(SP), RS :;GET THE INPUT NUMBER 
11197 O44710 190004 BPL 1§ :;BR IF_INPUT ; 
i119S O4N71e OoS40S NEG oS ;;MAKE THE BINARY NUMBER POS. 
11199 O44714 11276 cod0ss 00000: MOV #°-,1(SP) :;MAKE THE ASCII NUMBER NEG. 
11200 44722 ud 1$: CLR :;ZERO THE CONSTANTS INDEX 
11201 044724 012703 9451952 MOV #§081x R3 SETUP THE OUTPUT POINTER 
11202 730 112723 00040 MOVE (Ra)+ :;SET THE FIRST CHARACTER TC A SLANK 
11203 O44734 0050 23: CLR :3CLEAR THE BCO NUMBER 
11204 44736 O1S00! o4s072 a MOV $578. RO), Ri THE CONSTAN 
11205 o4474e2 195 33: Sug R1, RS :iEORM THIS BCD DIGIT 
11206 O44744 O024C2 BLT ~3 BR IF DONE 
lied? o44746 005202 INC Re THINCREASE THE SCD DIGIT 8 
11208 O447S50 009774 a5 3$ 
11209 044752 965105 ug: 900 R1.R5 ;;ADD_BACK THE CONSTANT 
| ti210 O44754 905792 TST Sr ;;CHECK IF BCD DIGIT=0 
i121) 944756 001002 BNE S$ $;FALL THROUGH IF 9 
11212 O44760 1OS7IE TSTB = (SP) $;STILL DOING LEADING 0°S? 
li2l3 be 100407 z SMz 7 : BR 
11214 O44764 106216 S$: ASL = (SP) ; MSD 
11215 O44766 103003 BCC 6$ 3;5R IF_NO 
11216 944779 416663 990991 177777 MOVB  1(SP),-1(R3} 3; YES--SET THE SIGN 
ligt? O44776 02 oocce0 68: BIS #'O,Re ;3MAKE THE 8CD DIGIT ASCII 
| 11218 O4s002 952702 O00040 73: 81S eR MAKE ITA SPACE IF NOT ALREADY 8 27327 
| 11218 O4500€ 110223 MOVE Re, tR3)+ S:PUT_THIS CHARACTER IN THE OUTPUT SUFFER 
| iiged O4S010 005720 ST (RO)+ ++ JUS UST INCREMENT ING 
| 1ig21 945012 920027 oocoio C RC, #10 :CHEC INDEX 
i 11282 O450i6 02746 SLT 360 BO 1 Nex OlGiT 
i 1lee3 Q 003002 BGT 8$ — ¢3G0_T0 EXIT 
| llgey O45022 010502 MOV RS, Re :3G5T THE LSD 
: 112825 O46054 900764 gs 6§ iG CHANGE TO_ASCII 
| 31286 O45026 105726 9S: TST (SP i+ WAS THE LSD THE FIRST NON-ZERO? 
| 11287 045030 100003 BPL 98 F_NO 
| 11268 O45 116663 177777 177776 MOY =](SP),-2(R3)  }:YES--SET_THE SIGN. FOR TYPING 
| [lz22 O46049 10501 98: CLRB (183) SET THE TERMINAT 
| 33230 O4S042 012605 MOV (SP i+, RS :;POP STACK INTO eh 
| 
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DralIALPil CONVERT BENSRY TS BESTNAC GRO TYPE ROUTINE 
ties, gvso44 912603 my ($P)4, 83 PoP STACK INTO 83 
- $ . 2 
tie8§ BUeRdR  BIsEEe mov CSB) 4 RI B86 et atk iNt 
113354 48052 012800 MOVs ¢ SP)4' RO 11 POP STACK 6 
13335 O45CS4 10490 OuS:02 _ TYPE ©. $0BLK Nod PYPE THE RUNBER 
11335 48580 Cisees 05585 soooo4 mov. SC SP).4CSP) —« EEADIUST THE STACK 
11537 612616 MOV —«(SP)4° (SP) 
(1238 ONs070 goc0g= RTT S:RETURN TO USER 
17533 SyE073 Oes4eo $07BL: 10000. 
11340 S45079 O01750 000. ! 
tik4 Oesore 800144 190. 
tisu3  Suero9 E0072 19. 
23855 RyeTHS 355565 soak: BLK 4 
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001157 
000002 


900002 
000011 
O0C2t0 


045326 


O4S262 
001156 


001254 
goood! 


MUulSeS 


W's we 


04S326 


000640 
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000997 045326 
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MACY11 27 (65S) 


-SB8TTL TYPE ROUTINE 


5 RRARRRREA EERE REARS AREER EERERE EEE EERE EE EERE EER LEER ES ERE SE EEESE 
; KROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE 1 * - Aye 


NOTER: 
: #NOTES: 
7 
;#OR 
:% TYPE 
;# MESADR 
fe 
$TYPE: TST 
BPL 
HALT 
SR 
1$ MOV 
MOV 
2s MOVs 
BNE 
TST 
£08: MOV 
33: ADD 
RTI 
<= CMP 
BEd 
CMPS 
BNE 
TST 
TYPE 
$CRLF 
ane 
St: JSR 
5S: CMPB 
BNE 
MOY 
7$: DECB 
BLT 
wD 
DECB 
BR 
;HORIZONTAL TAB 
es: MOvVB 
: JSR 
BITB 





3 : THE ROUTINE WILL ig A NUMBER OF 
*NOTEL: SNULL_ CONTAINS THE CHAR 
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CHARACTERS AF 


obins TER_A LINE FEED. 
ACTER TO BE USED 


sFIL ts CONTAINS THE NUMBER OF FILLER CGS TERS REGUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


> *CALL 
SID USING A TRAP INSTRUCTION 
TYPE . MESRDR 


(SP)}+ 
(SP)+, RO 
82, (SP) 


HT, (SP) 
SCRLF, (SP) 
S$ 

(SP)+ 
SCHARCNT 
2$ 

PC. $TYPEC 
SFILLC, (SP)+ 
$NULL , -(SP) 
1(SP) 

és 


37 YPEC 


ScHARCNT 


PROCESSOR 


id 
PC, bi optc 
7" SCHARCNT 





uMoQ 


;;MESADR IS FIRST AOCRESS OF AN 


333 oe A TERMINAL? 
;jHALT HERE IF NO TERMINAL 
vik 


:;SAVE_ =A 
:}GET ADDRESS OF ASCIZ STRING 


F ITI 

IF TERMINATOR POP IT OFF THE STACK 
RESTORE RO 

!:ADJUST RETURN PC 

::BRANCH IF <HT> 

::BRANCH IF NOT «CRLF 


::POP <CR><LF> eguty 
3; TYPE A CR AND L 


ae 9 grr COUNT 
;GET_NEXT 7 


230 rs THIS ¢ cH RACTER 
3318 IT TI FoR FILLER CHARS. 3 


t NEED TO BE TYPED? 
NO--60 POP THE NULL OFF OF STACK 


$10 NOT “COUNT AS A COUNT 


ds a TAS WITH SPACE 
;; TYPE A SPACE 
;;S8RANCH IF NOT AT 





AS THE” FILLER CHARAC 


ASCIZ STRING 
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DIRIIA.PLI TYPE ROUTINE 
11238 ous254 001372 BNE 
a, < H 
1130¢ Pissed TOSS? | 133662 S$TYPEC i 
Ss us 
113 BueSee 1003; BPL 
il 045270 11s677 00002 133654 Move 
11304 945276 122766 000015 909002 oMPB 
tise Ruesoe ono 045326 ae 
He RES ee : 
11308 045314 12276 o00012 oocoo2 18: CMPB 
11308 pub3e2 5014 SEQ 
11310 O45324 10522 INCB 
11312 45326 090000 SCHARCNT: . WORD 
11318 O46330 00020 STYFEX: RTS 


<0 ome - en ee ee ano eee 
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ag 
(52+ 

2 

aSTPS 
STYPEC 
2(SP). a$TPB 
#CR, 2tSP) 





SES C3204 
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tSDOB Space OFF STACK 
+ Cer REXt CHARACTER 
::WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INT) DATA REG. 
:;1S CHARACTER A CARRIAGE RETURN? 


;;BRANCH IF NO 

:FYES--CLEAR CHARACTER COUNT 
'1S CHARACTER A LINE FEED? 
:IBRANCH IF YES 


;:COUNT THE CHARACTER 
3 ;CHARACTER COUNT STORAGE 


4 
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a 


bbb bb kw 
MOD MWTuc wD 


SUNOS 
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Bet 


FEBB98 


OU Oba IRON E GIT 


bra tritt ty ath i ie ee Se Sr -r -be Sh e e ot tt Gd) 


For OW UTE 
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c- 
+06 - 0 6 = 8 = b= b= 6 -- & = Fb = B= bo = = = 0 = 8 8 = = = 02 = = 2 = 0 = = 0 9 2 8-2 Po = 2 BB B02 § = bo 8+ bo = 9 t # 
NOUS 


0 +--+ 0— b-- 8-= b= bs = 0 + 8 & = = = = 0 8 = 8 0 8 = 0 0 = 0 0 0-0 0 0 0-2 0 = 3 9 2 0 DB -+ 0+ 0-2 0-2 2 9 Bs pp ho 
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wi 
b= 


945232 
mee 
045340 
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-DeRI 


“A, RP 
TTY IN 


000039 
COO! 

000011 
045351 
3453582 


Ol2e777 
090297 


133529 
0 


0090176 


000011 
O0le16 
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045334 
045236 
000060 
000962 


133524 


061140 


045332 
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~SBTTL TLY INPUT ROUTINE 
5 RERRHRRRAERLERE LEAR EARLE LEER REESE EER EERE E EA EE EERERERES EEE EAEEL ED 


R_OF ITEMS IN SUEUE 
POINTER 


OUTPUT POINTER 
3; TTY KEYBOARD QUEUE 


;¥TK INITIALIZE ROUTINE 
:#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:RSETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


;;CLEAR COUNT OF ITEMS IN QUEUE 
;;MOVE THE STARTING ADDRESS OF THE r 
;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
ge ie KEYBOARD VECTOR 

E 


STKCNT 
#STKOSRT,STKQIN :: 
STKQIN, STKQOUT 
#STKSRY, BTKVEC 
#200 datkvec+s ; 
EAR DONE FLAG 
NABLE TTY KEYBOARD INTERRUPT 
0 CALLER 
;*TK SERVICE ROUTINE 


;*THIS ROUTINE WILL SERVICE THE 
EADING THE CHARACTER FROM 


:#IF THE CHARACTER en 
:#UPON RETURN EXIT IS MADE T 


TTY KEYBOARD INTERRUPT 
THE INPUT BUFFER AND PUTTING 


TROL-C” (tC) STKINT IS CALLED AND 
0 THE “CONTROL-C” RE 


;:;PICKUP THE CHARACTER 
TRIP T 

33:18 IT A CONTROL C? 

ee CH F NO 


START ADCRESS .OFERSEL? 


SOFT-SWR SELECTED? 
TO SWR CHANGE 


TY BELL 
ACTER OFF OF STACK 













DZRIIA.P11 TTY INPUT ROUTINE 


118 pees tet 009023 
370 bueese bosos? 133416 


aes 16879? 123410 


045536 133404 
O4SS42 O4e716 177600 
0000e1 


SS 


4 
[Tal 
9 


le77? 000198 133362 


REBRE SIs ot 
4 
; 
8 


Be 

aiaids 
83833 
3 


Be 045351 
ieee 12737 O4534O 045334 


SRR Paes 


O4564O0 Oee737 O0C17E 001140 
O4SS 


SeRenneeae 
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O4S674 123727 001134 000001 


001135 


wo rune wr-Ow 
# 
re £ 
ul 
“J 
fo 
8 
ra 
o 
2 
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uw 
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SES C306 
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38: CMP (SP ),423 iis IT A CONTROL-S? 
CLA KS tS BICABLE TTY KEYBOARD INTERRUPTS 
tS} +(SP)+ HF EY 

318:  TST8  aSTkS t aC 
BP 31 :{LOOP_UNTIL ITS THERE 





L Es : 
MOVE 337Ke -(SP) GET THE CHARACTER 
BIC #tC17?, (SP) *:MAKE IT 7-BIT ASCII 






CMP (SP)+, bol 3315 IT A CONTROL-0? 
BNE :BRANCH IF NO 
MOV #100, STKS :  REENABLE TTY KEYBOARD INTERRUPTS 
RTI ) ? RETURN 
32$: INC $TKCNT ::COUNT THIS CHARACTER 
CMP (SP), #140 :;1S IT UPPER CASE? 
BLT ss F YES 
CMP (SP), #175 *:TS IT A SPECIAL CHAR? 
BGT 4s IF YES 
BIC ::MAKE IT UPPER CASE 
45: MOVB (gp}s. OS TKOIN ::AND PUT IT IN QUELE 
INC $TKQI :;UPDATE THE POINTER 
CMP STKQIN, SSTKGEND ;;GO OFF THE E 
BNE *BRANCH IF NO 
MOV #STKQSRT, STKGIN. RESET THE POINTER 
Ss: RTI - “$2RETURN 


sy ARELRSAESEAARAEAARSLAAALSLERL SESE SEAL ELAA AAAS HELALAAARAAEFLFLLEE 
:&SOFTWARE SWITCH REGISTER CHANGE ROUT INE 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

s*SERVICE THE TEST FOR CHANGE IN SOFTWARS Sarten REGISTER TRAP 
#CALL WHEN OPERATING IN TTY INTERRUP? MODE. 





bticuA: CMP #SWREG, SWR IS THE SOFT-SWR SELECTED 
BNE 15$ EHEXIT IF NOT 
TSTB SeIKS :TS A CHAR WAITING? 
BPL 15$ 44 NOT, EXIT 
MOVE 3eTKB -(SP) 2: YES 
BIC #10177, (SP) ;:MAKE IT 7-BIT ASCII 
CMP P), 8? 315 IT A CONTROL-G? 
BNE es 53 iF NOT, PUT IT IN THE TTY QUEUE 
“AND EXIT 


; RRREK ERE EAE E RELA REALE AEE EE REALE EAS EEE REE REESE EERE EER ER ERE 
; CONTROL IS proseD TO THIS POINT FROM EITHER ne J TTY perenne SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL A RESULT OF 





‘#CONTROL-G BEING TYPED. AND THE SOFTWARE SWITCH "ReciSTeR BEING PECTED. 
é$: CMPB »- SAUTOB, #1 3;ARE WE RUNNING IN AUTO-NODE? 

BEQ es BRANCH IF YE 

TST (SP) ::CLEAR CONTROL-G OFF STACK 

JSR po STKINT FLUSH THE TTY INPUT QUELE 

CLR astks *:DISABLE TTY KEYBOARD INTERRUPTS 

MOVB #1, $INTAG ::SET INTERRUPT MODE INDICATOR 

TYPE »SCNTLG ; ECHO THE CONTROL-G (tG) 
SGTSWR: TYPE SMSWR TYPE CURRENT CONTENTS 

MOV SWREG, -<SP) ::SAVE SWREG FOR TYPEQUT 





| 12,Aamr t 











OZRJIA. 
114 740 
1148s 574 






vss O457s0 
tase aeve2 
11427 045756 
11498 

11429 945760 
11430 045764 
11431 

11432 045770 
11433 045774 
iv3s 946008 
11432 SHEDDE 
11437 O46014 
11438 46016 
11433 046024 
11440 

11441 

11442 046030 
i1443 046034 
11444 946036 
11445 346042 
11446 O46046 
11447 

11448 

11443 46050 
11450 O46054 
11451 46056 
11452 O46062 
11453 O46064 
11454 046072 
11455 046076 
11456 046102 
11457 046110 
11458 O46112 
11459 O46120 
11460 O4b1e2 
11461 O46126 
11462 045132 
11463 045134 
11464 046140 
11465 O46142 
11465 O4B146 
11467 O461S2 
11468 46154 
tiveo Oue1e0 
i141 Oaeiee 
Hie Bel 
1aoa Gue174 
11475 46200 








TTY INPUT ROUTINE 


104401 
104400 


: 


a 


ae & 


000901 
133120 


133046 


ocoo01 
133024 


MS oT ee RPO4/S’6 FUNCT. CONT. TST-PT 1 


198: 


203: 


17S: 


18$: 





aSTKB, -(SP) 
#10177, (SP) 


(SP), #3 
93 
SCNTLC 
6, SP 
SIATAG, #1 
#100, ISTKS 
OPERSEL 
(SP), #25 
eNTLU 
bé. SP 
19$ 
(SP), #15 
16$ 
4(SP) 
113 
2(SP), aSUR 
SCRLF 
SINTAG, #1 
#100, 2$TKS 


PC, STYPEC 
(SP), #60 


(SP), #67 


#50, (SP)+ 
2(SP) 
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35360 TYPE=-OCTAL ASCII(ALL DIGITS) 
;PROMPT FOR NEW SWR 
+}CLERR Sue 


::CHAR HERE? 
:;IF NOT TRY AGAIN 

PICK UP CHAR 

::MAKE IT 7-BIT ASCII 

$318 TA CONTROL-C? 

bites ECHO CONTROL-C (10) 

s HREENABLE TTY KEYBOARD INTERRUPTS? 


| 
ALLOW TTY oo INTERRUPTS 
;;CONTROL-C RESTAR 


3315 1T A CONTROL-U? 
BRANCH IF NOT 

7YES ECHO CONTROL-U (tU) 
IGNORE PREVIOUS INPUT 

iLET*S TRY IT AGAIN 


318 IT iT A cm? 
3 | BRANC 


F_NO 
+ ORR is. IT THE FIRST CHAR? 
H IF YES 


: BRANCH 
::SAVE NEW SWR 
 CreAR UP STACK 
sr EGRO <CR> AND <LF> 
RE-ENABLE Try KBD INTERRUPTS? 


: BRANCH 
: FRE-ENABLE TTY KBD INTERRUPTS 


XT _ONE 
SETYPE ?<CR)<LF) 
:;SIMULATE CONTROL-U 
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OZRIIA.P11 TTY INPUT ROUTINE 


1176 -CSABL LSB 
a 







114 ¢ RRRARA AAA RAL AKA AAA RAL ERA AE RAKE RAE LRA REA ERE E RELL EEE LER LERERE 





tier :ATHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

11482 ta ” RDCHR ;;GET A CHARACTER +e THE QUEUE 
11483 ;# RETURN HERE ; CHARACTER IS ON THE STACK 

11484 ;% ;;WITH PARITY BIT STRIPPED OFF 







114 pypene 911646 SROCHR: MOV (SP) ,-(SP) : PUSH DOWN THE PC AND 

14 6204 O16666 oo0004 oxD000e MOV 4(SP} , 2¢SP) 237 

1489 O46212 005066 000004 CLR 4(SP) ;;GET READY FOR A CHARACTER 
499 BYESIE OOSo4e CLR -(SP) :;PUT NEW PS ON STACK 

1491 O4622e0 012746 046226 MOV 864, -(SP) PUT NEW 

492 O46e24 900002 RTI ;;POP NEW 

493 046226 64S: 

494 O4e226 005737 945332 1S: TST STKCNT ;;WAIT ON A CHARACTER 

495 O46232 001775 BEQ 1$ 

496 046234 005337 945332 DEC STKCNT ;;DECREMENT THE COUNTER 
497 O4604G 117766 177072 OO0004 MOVE © @STKQOUT,4(SP) ;;GET ONE CHARACTER 

498 O462% 0095237 045336 INC KQOUT ;UPDATE THE POINTER 

499 O462Se 023727 045336 045351 CMP $TKQOUT, #STKQEND’ ; :DID IT GO OFF OF THE END? 
S00 O4S260 001003 BNE FA ANCH IF NO 

501 946262 012737 O4S340 045336 MOV SSTKOSRT, STKQOUT’: -RESET THE POINTER 

S02 o46270 ocdod2 T T 





RTI 
rift aioe estrip--iitt ae iii 











I 
1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

l 

! 2S: 

11503 : 

11504 SATHIS ROUTINE WILL INPUT A STRING FROM THE T 

11505 :*CALL: 

1 506 : % ROLIN 53 INPUT A STRING FROM THE T 

1150 1% RETURN HERE *: ADDRESS OF FIRST CHORES TER. WILL BE ON THE STACK 
: 508 : : TERMINATOR WILL BE A BYTE OF ALL O'S 
11516 O46272 010346 $ROLIN: MOV R3,-(SP) ;;SAVE 83 

11511 046274 012703 o46400 1$: MOV uStTYIN,R3 ::GET ADDRESS 

11512 046300 022703 O46411 23: CMP serTyinte: .R3 : TBUFFER FULL? 

11513 046304 101405 BLOS 4$ YES 

11514 O4206 104407 ROCHR ::G0 READ ONE CHARACTER FROM THE TTY 
1151S O463i0 112613 MOVB  (SP)+, (R3) *:GET CHARACTER 

11516 O46312 122713 000177 10$:  CMPB #177, (R3) ::IS IT A RUBOUT 

11517 046316 091003 BNE 3;9KIP IF NOT 

11518 O46320 104400 001222 4S: TYPE —_, SQUES Y 9? 

11519 046324 000763 BR 15 CLEAR THE BUFFER AND LOOP 

11520 946326 111337 046376 3S: MOVa = (R3), 9% ::ECHO THE CHARACTER 

11521 O46332 104400 046376 TYPE 

11522 046336 122723 OO0015 CMPB =—s-« iS, (R3)+ :;CHECK F 

11523 046342 001356 BNE 2g >:LOOP IF NOT RETURN 

11524 O46 105063 177777 CLRB = = 1 (R23) CLEAR RETURN (THE 15) 

1525 046350 104400 O01224 TYPE 3; TYPE @ LINE FEED . 

11526 046354 012603 MOV (SP), R3 : RESTORE R3 

11527 046356 O11646 | MOY. ~(SP) ; ;ADJUST THE STACK AND PUT ADDRESS OF THE 
11528 O46360 O16666 900004 opD002 MOV SPeps 2(SP) tt FIRST ASCII CHARACTER ON IT 
11529 046366 012766 O46400 O00004 MOV eSTTYIN, 4(SP) 





MNnaQ 
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DZRIIA.PL1 TTY INPUT ROUTINE 





11530 a sea RfI ; 5G ee 

11531 e378 9S: BYTE 9 ;;STORAGE FOR ASCII CHAR. TO TYPE 
11S32 0463 ‘TE Q >; TE 

ites pea 000011 Vives wes YF, s;RESERVE 9. BYTES FOR TTY INPUT 
ll 6411 1 O06S03 O00012 SCNTLC: .bL-IZ /t0/<15><12> ;;CONTROL "C” 

11535 045416 052536 905015 OO S$CNTLU: .ASCIZ /tU/<15><12> ;;CONTROL “U" 

11536 423 136 006507 OO00l2 SCNTLG: .ASCIZ /tG/<15><1l2> s;CONTROL “G” 

11537 O46430 005015 053523 020122 SMSWR: .ASCIZ <15><12>/SWR = / 

11538 046436 020075 0 

11539 4644! O40 O47040 O53505 S$MNEW: .ASCIZ /* NEW = / 

11540 O46446 O36440 000040 

11541 sFROM THE TTY 





AIMoO } 


Wu eeeeeeee oS 


wun 
Burne 


uh 
wo 


PANS A Red ad Hs 3 


UIT) 
Baa oul 


oo 


bb b= 8 = Fb Fb bb Bb 0 0 bb 0 = 0 bb b= b= 0 = Bb 0 2 0 BP = bb = 0 bo bb 0 9 0 br pe 
oo 


0 0 0 0 0 be bo po = pe Be aw Be Bw bw Be pe bo be Bee Pas ne Pe Be Be pes Be — 


POOH SSB VEARLS 


EHeoes 


B88 


ae 


im) 
Mw 
™“ 
bp Pipe 
o 


42 
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D READ AN OCTAL NUMBER FROM THE TTY 


000004 o0ccde 


046600 
000060 


000067 


177770 


000012 
046610 


001222 








-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


$5 HRI HEME MERRIE SEER RHEE REE ER EEE RRR RAE EERE EERE EERE EERE 
;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


3 #C TO BINARY. 

;*T HARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
;#OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A “?" WILL GE TYPED 
;#FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMSER MUST 
paren BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 





:#  RDOCT ;;READ AN OCTAL NUMBER 
% RETURN HERE :LOW ORDER BITS ARE ON TOP OF THE STACK 
1% ::HIGH ORDER BITS ARE IN $HIOCT 
SROOCT: TOY C«esPS steer «EE tneurchumpeRe Oe 
MOV RO, -( SP) PUSH RO ON STACK 
MOV R1;-(SP) >:PUSH RI ON STACK 
MOV Re, -(SP) *:PUSH Re ON STACK 
1S: RDLIN +:READ AN ASCIZ LINE 
MOV (SP)+,RO *:GET ADDRESS OF 1ST CHARACTER 
MOV RO,S$ ;;AND SAVE_IT 
CLR Rl CLEAR DATA WORD 
23: MOVE  (RO)+,-(SP) :;PICKUP THIS CHARACTER 
BEQ 3$ a WF Hee OUT 
CMPB ss #10, (SP) ::MAKE SURE THIS CHARACTER 
BGT 4S. saa ::1S AN OCTAL DIGIT 
BLT ug * 
Ror a 33#2 
ASL Ri 3734 
ROL Re 
ASL Rl 3338 
ROL Re 
BIC 81C7,(SP) - s;STRIP THE ASCII JUNK 
BOD (SP)4, Ri ::ADD IN THIS DIGIT 
SS: YR aaCSPD bE CAM TEMIITNATOR PROM. STACK 
MOV Re: SHIOCT ” 
MOV (SP)+, Re ;;POP STACK INTO R2 
MOV (SP)+’RI ?:POP STACK INTO RI 
HOV (SP)+'RO 33POP STACK INTO RO 
4S: TST (SP)+ CLEAN PARTIAL FROM STACK 
cLRB = (RO) ::SET A TERMINATOR 
- TYPE :: TYPE UP THRU THE BAD CHAR. 
a, PE ea 
SHIOCT: .WORD 0 :HIGH ORDER BITS GO HERE 
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DTaIIA.PL! ERgoR SaNaLER ROUTINE 
Rit .S8TTL ERROR HANDLER ROUTINE 
46 
1153° 5 RRERRERRESRERERRERLEREER ESLER EASES RELESSEASE EELS LER ES ESE SEES ESE 
11558 THIS ROUTI WIbL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
iss ;®SAVE THE ERROR ITEM a AND THE ADDRESS OF THE ERROR CALL 
itso :#QND GO TO SERRTYP ON ERR 
12802 : #THE SWITCH OPTIONS og ht SY THIS ROUTINE ARE: 
1is0e : #SWl W1S=] HALT 
11803 :*#SW1l3=1 a Error TYPEOUTS 
11808 :#aLD=1 BELL ON ERR 
11605 #SWO9=1 LOOP ON ae 
11806 *#CALL 
Te ERROR N s;ERRORSEMT AND N=sERROR ITEM NUMSER 
11609 46512 SERROR: ‘ 
Heit O46612 LO44CeE CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 
ilgle O46614 . REGSAY: 
1I813 O4e614 Ol2737 l77777? 9048734 ‘ MOV @-1  JsERFLGS ;SET ERROR FLAG 
31834 622 REGSAL: 
1isis 105237 921:03 7$: INCB SERFLS +3 9ET THE ERROR FLAG 
iifis O46626 1775 e BEQ a 3 DON" T LET THE FLAG GO TO ZERO 
LIEl? O46630 Ol3s777 OOLiCe 132304 MOV STSTNM, aDISPLAY $302 SPLAY TEST NUMBER AND £ RROR FLAG 
11818 46636 032777 O82000 132274 BIT sBIT10, aSWR BELL ON ERROR? 
31619 O4ss44 90:402 BEC i tind = SKIP 
ll6e0 D46646 104400 O0le! TYPE SBELL 3 RING 
Libei O466Se O00Se37 OOllle i$: INC SERTTL sCOUNT THE NUMBER OF ERRORS 
lise2 CYS6SE 011637 90111 MOV (SP), SERRPC GET ADDRESS OF ERROR INSTRUCTION 
llb23 OMe&E2 162737 DOLE Sug #2, SERRPC 
lige4 O46670 117737 i3e222 COLl14 MOVS aSERAPC SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
e f << 8 7 
11625 048676 O32777 Oef608 122234 BIT BITL3, aSWR SKIP hia IF SET 
11826 46704 O0C1004% BNE 20$ 2: 5K IP TYPEQUTS 
11827 Rae ses 004737 oO4&762 JSR PC, SERRTYP 330 0 TO USER ERROR ROUTINE 
| 11628 46712 104400 Od12e3 TYPE =—_, SCRLF 
i ii625 O46715 258: 
11630 046716 005777 132216 2s: TST aShR ;;HALT ON ERROR 
| ileal S4e722 195002 oe, 3 fiSkIe IF CONTINUE 
11632 O467e4 900000 HALT :;HALT ON ERROR! 
| $1833 O46726 IC440E ik CKSWR ; TEST FOR CHANGE IN SOFT-SUR 
| 31834 046730 O3e777 001000 is2zo2 38: SIT e8ITO3, sSWR LOOP ON ERROR SWITCH SET? 
| 1is3ss O4é7 001402 BEG 4 + 3BR NO 
11636 O4€749 O13716 901110 MOV BEERS (SP) ;;FUOGE RETURN FOR LOOPING 
| 11837 O4e744 995737 001314 4g; TST SCAPE $ CHECK K FOR AN ESCAPE SODRESS 
| TIg3s O46750 01402 BEG F NO 
| Lls3s9 34675 OL37i& O8le! A MOY SESCAPE, (SP? : FUDGE RETURN ADDRESS FOR ESCASE 
| JIBS&S OMS7S65 S$: 
{ 32542 S467S5— 0000 RTI : RETURN 
| iJ26%e 
; 
i 





moa 
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DIRIIS.P 1 ERROR HANDLER ROUTINE 
Lis43 
tee gy PRRARASAARARARAFLSELARALESSLRAL AAAS 
iig4 
11538 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
oo 3 ‘ 
11849 ;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
1is48 :#ERROR IS TO Ela REPORTED. I THEN OBTAINS, FROM THE “ERROR TASLE™ ($E8eT2) 
1t6s0 :¥AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
L185! :*IT IS A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC. 
11853 :#WITH ONLY MINOR CHANGES Ni 
11653 :3FIRST IF SWITCH & IS SET AND SWITCH 9 RESET THEN 
11554 -#ALL REGISTER CONTENTS WILL SE TYPED BEFOR REPORTING THE ERROR 
Tiss :#SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 
LIS5é :#AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 
11557 :#AND NOT THE ERROR MESSAGE AND HEADER. 
12859 o46760 coooo0 PRITEM: 0 sPREVIOUS ITEM NO. LOCATICN 
LISSi O4B762 O17746 132152 © SERRTYP: MOV  JSWR,-(SP) :GET SWITCH SETTING 
1igs2 46765 O4eT1e 177277 gic tCS60, (SP) KEEP ONLY SWITCH 8 AND & 
TISE3 O4E772 22726 Sooloo CMP 8SWO6, {SP )+ :1S & SET AND & RESET 
T1864 O46776 90109! BNE 1§ :IF NOT BRANCH 
LISéS O4rooo 990453 aR :BRANCH IF SW.6 IS SET AND @ RESET 
LIS&& O47002 300137 oy7rze ig IM DeTYPERR :JUMP IF SW 9 IS SET 
TIES? % :OR IF SW 8 IS RESET AND Sk & IS SESET 
Ps 
lls70 CH7098 194400 CH7O14 TYPE b5$ s:TYPE ASCIZ STRING 
11671 Os7Ole dcosde R b4g -:GET OVER THE ASCIZ 
ile7e °:553: .ASCIZ <18><le--Rewe = - 
| 11673 047020 b4$ 
Lis7$ 947930 oO13746 o92254 Mov Dawe, -.SP) sGET READY TO TYPE RAWC CONTENTS 
t1675 047534 19440! TYPOC : 
ee 
4400 
11678 O47036 Lo44o0 047044 TYPE 673 2:TYPE ASCIZ STRING 
i TIE7S at nude R beg ::GET OVER THE ASCIZ 
11680 | 5367S: .ASCIZ <15).12> SHEA =” 
1IsSi O47OEO 7 bes: : 
LIE82 47560 013746 O02356 MOV a8BA,-(Se) sGET READY TO TYPE RHA CONTENTS 
i; JI883 Ss7TDe4 18440! TYPOC 
| T6654 
i 21685 
| LI8E ON705E 104400 47074 TYPE 6ag ::TYPE ASCIZ STRING 
| 11887 847072 Boowds ; BR og ___ ¢3GET OVER THE ASCIZ 
| T1668 +2698: .ASCIZ (15)<12>/RHCS2 = 
1188S 47110 é6s: 
11690 547110 o13746 coe3zEe6 MOV aecs2,-(SP) :GET READY 70 TYPE SHCS2 CONTENTS 
| 269: Q47114 I6440) TYPOC 
iles2 ‘ 
i ytE93 
| 11694 O47116 104400 ON7124 TYPE =, 718 2; TYPE ASCIZ STRING 
| T1695 SH71é2 Ooo406 : BR (C$ 3 GET OVER THE ASCIZ 
| ilése- s37 L$: .ASCIZ <1S><le>-ReCSL = ” ’ 
| 


; 
be oe oe 


en ee | ee ee 












MAINDEC=11 
DLRITA. PLL 
11897 08714 
21659 347140 
11689 O4Pi44 
11700 
i17o) 
11702 OUTI4E 
13703 O4TtSe2 
11704 
11705 revi 
11708 3N7iTC 
bo, 07 O87 LTS 
11708 
21709 
11710 «C47 17E 
ti?ii Os7e02 
lis le 
13713 Teed 
1i718 87220 
1izis aves 
ri7is 
Liel? 
11713 O87e23e 
11720 
1i72i $47250 
livee 347250 
ti7ea 47254 
T3724 
11725 
Ll?eé O47256 
11727 =O4726be 
11728 
11728 047390 
11730 047300 
11731 047305 
11732 
11733 
11734 997206 
11735 O472le 
L1732& 
11737 47330 
11738 O87330 
$1723 D47334 
Li74C 
11741 
11742 947336 
13743 47342 
11744 
13745 047350 
i746 947360 
11747 O47364 
11758 
11748 
117&S O4736E 


ERAOR MESSAGE TYPESUT ROUTINE 


013746 
i04%401 


913745 


1O4401 


104400 
0034s 


S13746 
04401 


1044C9 
303406 


013745 
104401 


194400 


Sto4ds 


913746 
19440; 


204400 
CCO4Ss 


Cis74E 
1044Si 


154400 


202362 


o4risy 


Co2404 


47204 


002364 


047234 


047314 


O023&6 


47344 


CG2374 


aw 
‘CS: 


51738: 


“DIRII-“A8, SPO4-S 6 FUNCT. CONT. TST-PT 1 
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J#CS1,-( SP) ;GET READY TO TYPE RHCS1 CONTENTS 
acs ;; TYPE ASCIZ STRING 

reg 3:GET OVER THE ASCIZ 
(15><12>/RHDS1 = / 


a#0S1,-(SP) ;GET READY TO TYPE SHOSi CONTENTS 


4°58 3; TYPE ASCIZ STRING 

74% ::GET OVER THE 9SCIZ 
(15><12>-RHES] = / 

SBERL,-( SP) ;GET READY TO TYPE RHERL CONTENTS 
773 s;TYPE ASCIZ STRING 

6t 3;GET OVER THE ASCIZ 
(15>¢1l2>/RHER2 = / 

JSER2,-(SP> ;GEY READY TO TYPE RHERZS CONTENTS 
4238 7; TYPE ASCIZ STRING 

, THE ASCIZ 


- :;GET CVER 
4i5><¢12>.RHERZ = - 


3SERS,-( SP) 7GET READY TO TYPE RHERS CONTENTS 


91$ ::TYPE ASCIZ STRING 
85 2:GET OVER THE ASCIZ 
(15><12>/RHDST 2°") 


380ST,-(SP) sGET READY TO TYPE RHDST CONTENTS 


82$ 3; TYPE ASCIZ STRING 

2$ 3;GET OVER THE ASCIZ 
619>:12>/RHCA = * 

3aCA,-(SP) ;GET READY TO TYPE RHCA CONTENTS 
.95$ 23 TYPE ASCIZ STRING 
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OTAIIA.PL ERQOR MESSAGE TYPESUT ROUTINE 
Li7S1 o87372 900406 BR 945 _ 4g 3GET OVER THE ASCIZ 
11752 -:O5$: .ASCIZ ©15)><12>-RHAS = |” 
11753 O47410 34: 
11754 O47419 oO13746 02400 MOV DBAS, -(SP) .GET READY TO TYPE RHAS CONTENTS 
1175s ON7414 104401 TYFOC 
‘1 
PS Te-T 
11758 O4T4HIg «104400 «O4T424 TYPE 7g 2; TYPE ASCIZ STRING 
ii7s9 O4T422 500466 BR b€$ =:GET OVER THE ASCIZ 
11759 --87S: .ASCIZ <15)<12>/RHOF = °” 
1i7S1 47440 363: ies . 
11762 Sy7e4o 213746 992372 MOV 2BOF ,-(SP) :GET READY TC TYPE RHOF CONTENTS 
ti763. 47449 «T0440! TYPOS 
Hee 
Li7SB O4744S8 «194490 047454 TYPE os 2: TYPE ASCIZ STRING 
1irs? OwTHSe O00406 SR «BSS :GET OVER THE ASCIZ 
li7ss *-89$: .ASCIZ <«15><l2>/RHMR = - 
LI7ES 047470 883: 
L1778 «O87470 013746 od240e2 MOW 3aMR,- (SP) sGET READY TO TYPE RHMR CONTENTS 
1i7?t o7474 104401 TYPOS 
17535 
ro (ts 
11775 O47476 «rosso «ON7SO4 TYE =, 918 :; TYPE ASCIZ STRING 
11775 Ou7so2 o60456 BR Tak ::GET OVER THE ASCIZ 
11776 giQ1S: -ASCIZ <1S>«120/RMLA =’ 
11777 «947520 Sts: 
11778 347520 O1374e sce4eo MOV 2aLA,-<SP) sGET READY TO TYEE RHLA CONTENTS 
11779 47524 15440! TYPOC 
11780 
ef Ss 
11782 ON7S26 104400 O4TS34 TYPE $35 :: TYPE ASCIZ STRING 
| 11783 047532 OOc40s BR §23 GET OVER THE ASCIZ 
| T1794 --92$: .ASCIZ <15>«12>/RHCC =? 
| 11785 ou7ss $28: 
| T1786 O47550 o1374 sOz41s MOV aecc,-( SF: sGET READY TO TYPE RHCC CONTENTS 
11787 547554 10549: TYPOC 
| 11789 
| 31750 947556 104400 O47SE4 TYPE 953 +: TYPE ASCIZ STRING 
; 13791 Oe75se Soc406 BR 4g r:GET OVER THE ASCIZ 
| {3792 -:95$: .ASCIZ <15><12>-RHECL =)’ 
| 11793 o4760C $4s: 
| Ti7s4 O47600 913746 ooe4i2 MOV D8EC1,-(SP) sGET READY 79 TYPE RHECL CONTENTS 
| Ti7es 947654 1o4sal TYPOC 
| J17S€ 
1 11797 
| 13798 O47606 104400 9547614 TYPE 373 :: TYPE ASCIZ STRING 
| 11785 47612 S006 BR SES 1:GET OVER THE ASCIZ 
31800 --97$: .ASCIZ <15><l2>-RHEC2 = - 
11851 O4763¢ dts: 
11663 947630 913746 ODZ414 MOY QBEC2, -( SP) :SET READY TC TYPE RHEE CONTENTS 
iteee 547534 LO44C] 
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Sppeeiee 
Feet att ay 


ws 
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0-2 = = 08 bs ob 2 8 0 0 he = 2 Os 0 0 2 0 2 Fo 2-8 hw 2 2 2 8 0 ho 2 Bo bo = 0 Bs hh + 0 Bo ho B-0 b= 9-2 9 bo Bs 
+ B28 bs 0-98 = Bs Bb be Ps 6 = 0-2 b= Bb Fo 0 0 8 = = 0-2 Be 0-2 B20 0 b= 0 0 = Bs 2 0 bo §-0 02 b  p o B-s Bo Bos Po 
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OS Stok 
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O47°S36 
047642 


FE50S 


ee ed 


pe 


& 
ERROR MESSAGE 


104490 
000408 


C13746 
10440! 


154400 
OO04Ss 


013746 
104491 
005537 
194400 


O47E44 
9024s 
47674 


00240 


S46760 
cOl223 


001226 
046769 


046759 


OS00!e2 


001222 
60030 


O0i223 
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99 


O18) «12> HOT = 


aadT,-<\ SP) 


101$ 
9 


(15> (12> /RHSN 


aaSN,-\SP> 


JePRITEM 


$CRLF 
0, ~(SP) 


JSSITEME,RO 
1$ 


SERRPC ,-: SP) 


R 
#SERRTS, RO 
RO. JePRITEM 


13 
(RO)+, (ROI+ 


RO, JePRITEN 
[+ .e8 


;; TYPE asc! 
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: TYPE ASCIZ STRING 
:{GET OVER THE ASCIZ 


;GET READY TO TYPE RHOT CONTENTS 


2 STRING 
::GET OVER THE ASCIZ 
/ 


;GET READY TO TYPE RHSN CONTENTS 


:CLEAR PREVIOUS ERROR ITEM 
: “CARRIAGE RETURN” $ “LINE SEED" 
:PICKUP THE ITEM INDEX 


sIF ITEM NUMBER IS ZERO 
: TYPE THE PC OF THE ERROR 
:SAVE SERRPC FOR TYPEOLT 
:ERROR ADDRESS tome 
:60 TYPE--OCTAL ASCII(ALL DIGITS: 
-GET OUT 


: u 
sADSUST THE INDEX SQ THAT IT WILL 
; WORK FOR THE ERROR TASLE 


JUST 


:FORM TABLE POINTER 

WAS PREVIOUS ERROR SAME 
BRANCH IF NOT 

POP RO OVER EM AND OH 


;SAVE NEW ERROR ITEM 

;PICKUP “ERROR MESSASE™ POINTER 
;SKIP TYPEOUT IF NO POINTER 
;TYPE THE “ERROR MESSAGE” Z 
:"ERROR MESSAGE” POINTER GCES HERE 
;"CARRIAGE RETURN” & “LINE FEED” 
;PICKUP “DATA HEADER” POINTER 
;SKIP TYPEOUT IF 0 

Be THE “DATA HEADER” 

;"DATA HEADER” POINTER GOES HERE 
7 SCARRIAGE RETURN” & “LINE FEED” 


; SAVE Ri 
;PICKUP “DATA TABLE” POINTER 
:BR IF NO DATA TO BE TYPED 
:PICKUP "DATA FORMAT” POINTER 
:"OCTRL” OR “DECIMAL” 

38R IF DECIMAL 














MAINCEC=11-D2RII-8, 804-5 6 FUNCT. CONT. TST-PT 1 MACYLL 27(65S) 30-NAR-76 22:59 PAGE 26 ' $65 9316 
DZAIIA.PL! ERROR MESSAGE TYPESUT ROUTINE 
11859 os09S2 213146 MUV Q(R1}+,-(SP) SAVE 2(RL)+ FOR TYPEOUT 
tis69 95c054 10440! TYPOC GO TYPE--OCTAL ASCII‘ALL DIGITS) 
11861 959056 ooo4de2 BR 9$ 
11852 950960 - FB 
11383 950060 013146 MOV QiR1)+,-(SP) — ;SAVE g(R1)+ FOR TYPEOUT _ 
11854 O50962 10444 TYPOS :GO TYPE--DECIMAL ASCII WITH SIGN 
11865 950084 905711 gS: TST RL) I$ THERE ANOTHER NUMBER? 
11866 O50066 O01403 359 3g :BR IF NO . . 
ties? 960075 1osHct osoics TYPE 11 !TYPE TWO(2) SPACES 
1iseg Is0074 900764 BR bg ;LOOP 
11879 gsO076 312601 S$: MOV (SP)4+,R1 RESTORE R1 
i187) 950199 3135609 i$: MOY (SP) +'RO "CARRIAGE RETURN" & “LINE FEED" 
Lives S65163 460507 ats pe : RETURN 
tists 50206 920040 900 WS: .AscIZ - / :THOCZ) SPACES 
tie74 550115 “EVEN 
Lig7s 
| 
| 
| 
| ; 
i - 
| en 


me en 
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LOCO 6D 0 C9 EH CO EEO CD CD WED 
SE itisbet thi tat or 


isha 


BEoRR 
utara aerated 
TEOMA eM. 
rary 
Bg 


TU 0—* &— b-- 8 b= 8 bo 
—-O.00 NOU st wire O 
oO 
atatta 
goood 
- - 
ene 
i 
J 
Oo 
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Ww 
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0 = 5 8 bb 8 bs bo 2 Ob se bo Bs be he 0-0 be Fe 0 Bs 0 0 bo Fe ho 8 = 0 0 0 b= bho ho be oh 0 hw be Bo Po bh op 2 bob ee ee 
Ht 
Bt et) 


ea a ae ee eee SRR 

Iz 

+ 0 0 bs bo + 0-2 bo 2 2 0 bs 0 2 8 0 0 be sb os bo = Bh 0 bo 8 = = B= B90 8 ob = bo b— 8-0 b= 0B -2 bs 9-0 b= & 2 pps ho 8 bo be Bz 
BBR RES ReS 4 a 4 

O60 -IO'Ul 2 LIfe (5.0 - Jo" 2m 

> 

wt 

+o 

b--0-- 

4 

a 

Oe 

o- 

me 

pies) 

ay 
© 

mt} 


toruruorm 
won 
int 
IO 
Sis 
= 
io] 
uw 
Ww 
Ww 
™s 


coooce 
E0000! 


050335 
000905 
050334 


050333 
000012 


3S0334 


17777 
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TYPESUT ROUTINE 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
Sy RRRRRRARE RE RRA S ERA ELAR RELA RE LAER FL RELL AAPA RELA LLL AL ELE LAS RELFFE 
THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCII) NUMBER AND TYPE IT. 
: #$T'YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMGER OF DIGITS TO TYPE 
:* : 
:e MOV. = NUM, -(SP) ;;NUMBER TO BE TYPED 
:* TYPOS :;CALL_FOR TYPEOUT : ¥ 
:# .BYTE ON :3N=I 12 & FOR NUMBER OF DIGITS TO TYPE 
3* -BYTE MM ;:M=1 OR O 
:% ;;1=TYPE LEADING ZEROS 
i* ;;O=SUPPRESS LEADING ZEROS 
:¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:#STYPOS OR $TYPOC 
ie MOV. NUM, -{SP) ;;NUMBER TO BE TYPED 
i TYPON :;CALL FOR TYPEOUT 
: #$TYPOC---ENTER HERE FOR TYPEOUT GF A 16 BIT NUMBER 
3 FLRLL: , 
:* MOV. =. NUM, - (SP) -:sNUMBER TO BE TYPED 
i TYPOC :;CALL FOR TYPEOUT 
$TYPOS: MOV = {SP}, -( SP) ::PICKUP THE MODE 
050323 HOVE  1(SP),SOFILL ;;LOAD ZERO FILL SWITCH 
MOVE  (SP)+,SOMODE+1 ::NUMBER OF DIGITS To TYPE 
B00 a2, (SP) :;AOJUST RETURN ADDRESS — 
050333 $TYPOC: MOVB #1, SOFILL ;;SET THE ZERO FILL SWITCH 
050335 MOVE #6, SOMODE+1 ::SET FOR SIX(6) DIGITS _ 
059332 $TYPON: MOVE #5, SOCNT :;SET THE ITERATION COUNT 
MOV R3,-(SP) ss R3 
MOV RY, -(SP) ;;SAVE RY 
MOV RS, -(SP) ;;SAVE 8S = 
nove SOMODE+1 ,R ;;GET THE NUMBER OF DIGITS TO TYPE 
J 
ADD =—s-#&, RY ;;SUBTRACT_IT FOR MAX. ALLOWED 
MOVE 4 SOMODE :;SAVE_IT FOR US b 
MOVE  SOPILL,RY ::GET THE ZERO FILL SWITCH 
MOV =: 12 SP} RS PICKUP THE INPUT NUMSER 
CLR sR $;CLEAR THE OUTPUT WORD 
1$: ROL RS ;;ROTATE MSB INTO “C™ 
BS 35 :3G0_DO_MSB 
2s: ROL RS :;FORM THIS DIGIT 
ROL = sR 
ROL RS 
MOV sR, RB : 
38: ROL = RB ;;GET LSB OF THIS DIGIT 
DECB  $0MODE :; TYPE THIS DISIT? 
BP 7 7;8R_ IF NO , 
BIC 8177770,R3 :;GET RID OF JUNK 


ae ee ee ee 





SES 0317 


PF es, ! 








MAZ 


NDE: 
IA. 
30 
33 
33 


= | 


t. 


> +0--b +b <b +1 <0 + 0-2 9-2 p—2 b—< 0-2 Bo 8 Bo 92 6 & 0 8s Bo poh 
0-0 -+ b+ b -* 8-+ 6-2 <b <b © >-— §-< » <0» & <0 -+ 9 -< §-< 9-2 9 9 9 ~ 9-2 bo 


O.0.00 


pe BAAN SET 


ube EF FS | 
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“11-D2RJI-8, PPOW/S 6 FUNCT. Fon TST-P7 1 
Pil BINARY TO OCTAL (ASC AND TYPE 
gso244 iste 3 
ee Ee « & 
a3 900989 BIS 
0260 Resta 000040 S$: BIS 
peuess 110337 059330 MOVB 
OSCe ae 950330 . TYPE 
OS0e74 1 332 7$: CECB 
JS030C 903347 BGT 
050392 O0e46e BLT 
059394 05204 INC 
050306 900744 SR 
050319 012605 $$: MOV 
oS0312 912604 MOV 
050314 912603 MOV 
OSS31E O166€6 900002 009004 MOV 
0324 912616 MOV 
e& O000Ce RTI 
0330 oo0 8$: BYTE 
o5033: 999 "BYTE 
o33€ 902 SOCNT: .BYTE 
050333 003 SOFILL: :BYT 
JsC334 SCOLCU SOMODE: .WORD 


OE ooo 


109 
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Big! (SP) 


jos] os | Se | Se | ae | 


Tram 
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suPoness Tats 0” 

: DON? T_SUPPRESS ANYMORE O°S 
MAKE THIS DIGIT ASCII 

ti MEKE att IF NOT ALREADY 
4 Sy OR_TYPING 

+ G0 YPE THIS DIGIT 

; COUN 

FBR IF MORE TO DO 

IF 00 


INSURE LAST DIGIT ISN’T 9 BLANK 
00 oe DIGIT 





SEO C318 
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DZRIIA.PLI 1 DECOSE 

11954 .SBTTL TRAP DECODER 

l 1355 © RRSRHEESLAFRASAAFSRAAAASERELHLAL RAL SASHES ELAASSLALA RHA AEF RAELLFAFSFH 

1195" kT THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 

11958 : BAND, USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

11955 HE DESIRED ROUTINE. THEN USING THE ADORESS OBTAINED IT WILL 

11350 sep Te THAT ROUTINE. 

11988 050336 D1004¢ STRAP: MOV ; SAVE RO 

1196 C 916699 oonoce MOV et BPae oR RO 53GET TRAP ADDRESS 

11964 950344 00574 TST (RO) 5 BACK (UP 

11965 950346 111900 MOVB TROD. RO GET RIGH T By TE OF TRAP 

11966 050350 006300 ASL R :POSITION FOR INDEXING 

11967 950352 O160900 oSo36c MOV STRPAD(RO},RO ;; INDEX TO TABLE 

11368 050356 00 RTS RO :G0 TO ROUTINE 

11970 .SBTTL TRAP TABLE 

11972 :#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

11373 :#8Y THE “TRAP” INSTRUCTION. 

11975 : ROUTINE 

11976 5 eee 

11977 950360 $TRPAD: 

11978 959360 o4s112 $TYPE ; ;CALL=TYPE TRAP+0(i04400) TTY TYPEOUT ROUTINE 

11979 950362 059134 $TYPOC ::CALL=TYPOC § TRAP+1(104401) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
11980 950364 950119 STYPOS ;;CALL=TYPOS © TRAP+2(104402) TYPE OCTAL NUMBER {NO LEADING ZEROS) 
11981 o50366 950:50 $TYPON ::CALL=TYPON  TRAP+3(104403) TYPE OCTAL NUMBER (AS PER LAST CALL? 
1138¢ 059370 O44656 $TYPDS  CALL=TYPDS TRAP+4( 104404) TYPE DECIMAL NUMBER (WITH SIGN) 
11984 oso372 045730 SGTSWR ;;CALL=GTSWR § TRAP+S(10440S) GET SOFT-SWR SETTING 

11386 950374 945640 SCKSWR ; sCALL=CKSHR TRAP+6( 104406) TEST £98 CHANGE IN SOFT-SiiR 

11987 550376 Oy4b202 SROCHR ::CALL=ROCHR = TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 

11988 950409 9o4G272 SROLIN ::CALL=RDLIN  TRAP+i0‘104410) ITY TYPEIN STRING ROUTINE 

11989 059402 Quguse SRDOCT ;:CALL=ROGCT  TRAP+I1(194411) READ AN OCTAL NUMBER FROM TTY 

11990 OS0404 O4e05e WAIT.T ::CALLSWAT TRAP+!2(1044!2) DONT ADD ASCVE THIS TRAP 

oe s3i 


MAINDEC-11-DZRJI-A, RPO4’S’6 FUNCT. CONT. TST-PT 1 MACY11 27(655) 30-NAR-76 22:59 PAGE 260 
CZRIIA.Pil POWER DOWN AND UP ROUTINES 


-SBTTL POWER DOWN AND UP ROUTINES 


$ © RELAEARAAEHA RA AHA AAA ARERR LAE RA EERE L ESE LAEALA RARE AARA FRE ELAAEEE 
“POWER DOWN ROUTINE 

oo0024 §PWRON: MOV WSILLUP, DHPURVEC 5 SET FOR FAST UP 

go00026 MOV ae 0, SaPURVEC +2 ; ;PRIO: 


furu 


28398 
FESS 


ONON0V0V000000 
be Oo 
baeeee 


b= §— 6-- 6 = b> bo 2 ps ho bP 


P, SSAVRS VE S 
SSPRRUP™ aBPURVEC’ SET UP VECTOR 
“2 ;;HANG UP 
al A eee 


t BOWE 
$PWRUP: MOV HSILLUP, Q#PURVEC ; ;SET FOR FAST DOWN 
MO SSAVRE, SP SP 
SSAVRE MATT LOOP FOR THE TTY 
1S: Inc SSAVRE :;WAIT FOR THE INC 


1$ 
=}t> aSWR : POP STACK INTO aSWR 
oo POP STACK INTO RS 


ae 


+=} 
es 


=—3 
ou 
Jai 


( 
( 
( , 
( +m 
(SP) ae, T R 
ry WRONE 2NPURVEC’ : rset UP THE POWER DOWN VECTOR 
, JHPWRVEC+2 5 :PRIO 
Bort “Tye POWER FAILURE 
SPWRMG: .WORD nan s FAIL MESSAGE POINTER 
(Pc), (SP) te AT BEGIN 


ot 
Qi 
9 
0 
0 
0 
0 
0 


SP) 

SP)+ 
SP 
SP 
SP 
SP)+ 
a 
#340 


SILLUP: 33 - POWER UP SEQUENCE WAS STARTED 
BR ‘ 3 BEFORE THE POWER DOWN WAS COMPLETE 
$SAVRE: 0 ;;PUT THE SP HERE 
042527 SPOWER: .ASCIZ <15><12>"POWER™ ° 


- EVEN 
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DZRJIA.PL1 POWER DOWN AND UP ROUTINES 
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4 ettitctiitittiittitiititiiriititiee: 
le ; + 

15033 5 HERROR AND MESSAGE TABLE CONDIMENTS 
1504 erttiittittitictitiiitititiitiisii yy 






EMI: -ASCIZ /RPOY DID NOT INTERRUPT/ 


R 
aR 
3 
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Hy 
oO 
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. 
ae 


: 

e 

2 

8 4 
Sy SPaHeR a 


OS . 
1 EM2: .ASCIZ /INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/ 


eras 






oey 
Z 
fo 





2040 ENM3: -ASCIZ /RPCY DID NOT INTERRUPT WHEN EXPECTED BIT DID SET’ 


R 
S 
<£ 
é 
3 





cBrenss 


<< 
_ 





g 
Ue 
é 
2 


EM4: -ASCIZ /EXPECTED BIT DID SET BUT TIME IS IN ERROR (TIME IN 10 MICROSEC, DECIMAL 


= 
e 
m™ 
y 
P tae 444 - 


w 


Boneh 
B 
g 


fy 
PRERRERERR R 
Wa 


-OLH 






8 
zs 






042040 EMS: -ASCIZ /RHAS DOES NOT CLEAR BY MOVING IN ALL CNES/ 


222R? 
OoOn+szco 
B 


4 


axe 


wef TT ees 


ERBNTRBASRESORS 
z 
R 
Toei 


tututatatatatatatutatatatatatatatarar al 
COR MWWwe - 
2 


tb bb bb bh = bt he he ee 





“LOADING RHER1 FOR ALL UNITS DID NOT SET ANY RHAS BITS/ 
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EME: 


— 
o 
Oo 
fo 
oO 
-_ 
oO 
| 
oO 
<= 
<= 
— 
m™ 
iat) 
A 
_— 
— 
oOo 
uw 


tu 
By 
Qo 
y 


30-MAR-76 22:59 PAGE 262 


MOS 
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AND UP ROUTINES 


OWER DOWN 


i RPO4/S’6 FUNCT. CONT. TST-PT 1 








“SPECIFIED REGISTER NON EXISTANT, SO ABORT PROGRAM/ 


-ASCIZ 


wu Py 
Seared 

5084 
82 TN IBS OS 


p= sn =u 


Shiner sean 


Bane eaere rene Gi 
Beans ezeezezuz 


sr pe aR reer 


17 O040S2e 


=i 
on 
“tt 
w=) 
53 
at 
Ee 


li? 020124 


1 . v V=s0/ 


AIMNna 


“STOPPED DRIVE HAS MOL BIT IN RHDS! SET/ 
-ASCIZ /WITH SPINDLE POWERED UP, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, DVA=1, R 


-ASCIZ /WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO. AND IR SET/ 
-ASCIZ /AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS1 SHCULD HAVE MOL 


-ASCIZ 


17 O42520 EM10: 
020110 EM1i: 


s ies gata! 
SEALE LISS 


476 043101 O42Se4% Ce0lee EMle: 


456 047040 027117 O4O44O 
464 O42116 O4444O O20lee 
S04 O501e3 047111 046104 
Si2 Oe0105 O47S520 O4eSe7 
SeO O4eSee 020104 050125 
S34 041501 020113 aby 
S42 047113 020056 O42 

Stee 051504 Oe0061 O44123 


hd gd dd wd wd 4 4 4 oH 


B6SS66ESSSSES8S8S 


051634 047040 Oe0117 O47111 
OSib42 O84Se4 046101 055111 


SSESSSSSSSSSSSSSSSSSSSSSSE8SS4SSE6S4S 
UU UUBMAMM OM F 


O-UMOrTnNworoo 
CAH A Ht tt 


PPP EERE Pe SSRIS Beh Se 


Soee Kaee Dea Ieee logue Noah Reaun Rom Koon Kase Kame Kom Koen Koen Ken Kem Kae Roe Rae Ke Ro hoe Ron ho Fo hoe ee ee ne ee ee ee Ee Ke Keown Neem Kem Kuen Reet Rem Reet Date hoe Ram Rae) 


quCucuruCuCUcu CUCU CUCU CuCuCUCu CUCcuCuCuCu CU CuCUucuCucucuCucucucucucucucucucumicucucucucucucucumy 
SE hd nd Od nd nd wd ad Od ad Od wad ad Od nd ad hd ad ed ad ad ad Od ad add ad nd dd ad add dd dd dd od Od eh ed nd dd md wd nd 









; : ¥ 
a 5 5 
A i 
3 - te in au 
8 # 2 " " é 
a a « a . 
; Be eee tt : 
& " a ri : w! i 
a Z eae & 
oO = Qa 
. 5 2 : 44 H 
Q e ° : : 3 
: 2 - é Sea o g 
o- 4 4 ~ 2 i 3 
23 foe ees ber : 
- z a ae. Ss : 
: Poet Cae ots : 
Ss oo00rwwo wasrnT ws 
2 Sppgiey BEVGHRE SaeSusy SPUGRIONS SNey SPRANG Skat . 
a, BBSEEeE spaces Giniass gifeues Brus pas Seen 
of E98 Sega Fe os npvesaete pare cavessege mae 
sy souceUOSEoUicel coeds Wlemalia C2 Ci 012 
5 ESPN EBSA RaaeN ES erga Pee | 
F nee ig larg tueeercisttgag tases: 


288 
Baz 
ssauiesascosssclsOnniate — 


FPS PS RAMANA DDB BBB DDR ete hele te hehe Oe BORO Oe oe 


FFF F-7 AAUA NN DODD BOB OR CR RRR 030300 co OB oOo TOOT Ovo 


eucucucucucucucucuCucuCucuCuCucucuCuCucuCucuCuCu cu cucucucucicucucucucucucucucucucucucucucucucucucucu cu cucu 
EE dd Od ad nd ad Od Od ad Od wd nd nd ed ad Od hd de ad ad dd ad nd nd ad hd a nd ad dd od od hd hd wd wd mh nd Od md 


052304 0475 
OSe3i2 0201 


C-11-DZRJI-A 


MAT 
DZRJIA.P11 
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—h-e-~-b- =f 
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turuful 
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tutu 

runny 
+— > <b &— 9 -— ~~ 6 ~~ 8 BH 
WNW £ITue-C> 


0+ 0--* 0-2 + 0-2 b= 0-2 4-2 B= B-0 8-2 0-2 bh 2 b-2 D8 B -0 = 0-0 B~0 b 0 9-2 Po B+ 
fururofurofure 


pt 


o-+b +0 be 


merry 


turotu 


JI-8, RPOY5°S FUNCT. 
POWER DOWN AND UP 
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MACY 27¢6S5) 


SHOULD SE. REC CATA GIVES 


APTER COMMGNE 


“REAO-IN COMMAND CAUSED AN ERROR’<15>< 


BE, REC DATA GIVES RES. 


COMMAND WAS IN ERROR’ 


COMMAND WAS IN ERROR 


/UNLORAD COMMAND CAUSED AN ERROR. <15><2 
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il POWER COWN AND UP ROUTINES 


0Se7s~ ou 107 O47517 920104 LMSCIZ /GO0D DATA GIVES SHOULD GE, REC DATA GIVES REG. CONT. AFTER COMMAND” 


eg 
e 
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